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Hier ist es! Das RUN-Sonderheft, randvoll mit neuen 
= =Programmen. Aus Hunderten von Listings haben wir 
=die besten und originellsten ausgewählt. Ob Anfän- 
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ger oder Experte — RUN Spezial bringt für jeden et- 
was. Besondere Schwerpunkte sind Grafik und 
Floppy-Ansteuerung. Der Zeicheneditor ZED verän- 
dert Bildschirmzeichen fast von selbst. Mit über 50 
Befehlen bearbeitet GRAFIK-BASIC gleich zwei Bild- 
schirmseiten. Laden von der Floppy im Turbo- 
Tempo gibt's durch den FAST LOAD GENERATOR. 
DISKORG rückt dem Diskettenchaos zu Leibe. Auch 
Bandbesitzer kommen nicht zu kurz. Eine frei pro- 
grammierbare Dateiverwaltung macht die Datasette 
zur Datenbank. Für alle, die einen Blick hinter die 
Kulissen werfen wollen, gibt es einen besonderen 
Leckerbissen: Als erster Maschinensprachemonitor 
knackt LINEASS alle verbotenen Assembler-Befeh- 
le. Abgerundet wird das Ganze durch eine Auslese 
der besten Tips und Tricks aus dem ersten RUN-Jahr- 
gang. Prüfsummen bei allen Programmen sorgen für 
fehlerfreies Abtippen. 

Viel Spaß beim Computern! 
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Ein Korrektor hilft beim Abtippen io rer Mden .die Zeilennummern extra 


von Listings. Damit er das kann, 10% - - - .. N deswegen mit ausgegeben 
muß man ihn vor der Eingabef% :D REMarks können vollständig 


% eines Programms eintippen 008 % weggelassen werden (eine der 
u Wer sich die Zeit sparen will und 2 & gewollt eingebauten Spezialoptio- 
4 doch einen richtigen Korrektor ing : % nen). Sollte in der Zeile ein :REM 
g seiner Programmbibliothek haben 0% stehen, so muß der „:" jedoch ein- 
möchte, schreibt an RUN, Kenn-s7: W% ccegeben werden, um die korrek- 
K wort „Korrektor“. Für nur 10,00 8% te Prüfsumme zu erhalten. 

Mark bekommt er die RUN-Ak-% 
Mtionsdiskette. Wer die RUN-o-thek 99 
© 
23 
* 
. 
. 
® 
© 
ec 
“ 
a 
= 


e %9) Es ist nicht möglich, von der fal- 
schen Prüfsumme aus auf den 
% Fehler zurückzurechnen. 


. »10) Außerdem beherrscht der 
x C64-Korrektor Simon’s Basic, in- 
. % dem man das erste Komma in der 


= letzten Zeile wegläßt. 


bestellt, kann sich das sparen: Aufi% 
der Programmdiskette sind alle w% 
Programme eines Heftes enthal- 
ten, also auch die Korrektoren. 


Funktionsweise 
# Hinter jeder Listing-Zeile im Heft 
a findet man eine (meist) vierstellige 
Banane Zahl Das ist die Prüfsumr me ‚Sie 
Pur 


"Korrektor auch 


5 Er der Stat uszeile verglichen 1 Er kr 
. ee) Spaces innerhalb von AÄnfüh-“% 
„nachdem man RETURN gedrückt=.® ;D Spac £ mit Simon Ss Basic 


2 ichen gehen in die Prüf 
hat. Stimmt die Zahl in der Status- =, summe ein! 


zeile mit der Prüfsumme überein, „« 4) Spaces in DATA-Zeilen werden 11) Auf, alten C64-Computern 
weiß man, daß die Zeile richtiges „nur dann berücksichtigt, wenn sie "kann es passieren, daß die Kor- 

Up wei Dinge sind} 2, » (auch hier) innerhalb von Änf üh-® !rektorzeilen nicht sichtbar sind 
tig; *® rungszeichen liegen. Also Ach-.«® «Das liegt an den falschen ROMs, 
s eingetippte Programm sa- *: tung; DATA GRÜN ‚ROT, BLAU ‚die den Bildschirm bei einem 
icht unter dem Korrek- GELB ,.... ist verschieden von “SHIFT/CLR-Home mit Bildschirm- 


tor starten "DATA, GRÜN, ROT, BLAU, GELB.» “-hintergrund- statt mit der -vorder- 
2) Die Anweisungen in eck igen«? SE 


Klammern nicht mit eingeben!!! Es’- 


„sind die „übersetzten“ Steuerzei- “daran, das Spaces nach einem .“dem Cursor sicher 


„chen, die die Lesbarkeit erhöhen. %: DATA-Inhalt nicht überlesen wer-:!-RUN/STOP-Restore hat keine 
DOWN’ ist Cursor abwärts, „UP“. den und dies der Korrektor aus.*. Auswirkung auf den Korrektor. 
maulwaris; „SPACE die Leertaste.! > Platzgründen nicht berücksicht A: ‘Man kann ausprobieren: RUN/ 
Die Zahlen bedeuten die Häufig-“ ‘gen kann.) 3 "" STOP- Rästore barühti die oberste 
‚keit der Betätigung der jeweiligen.» 5) Zwischen Listingteil und Prüf- »' Zeile nicht. 

„Taste. Ansonsten hält sich die‘; “summe befindet sich niemals ein ‘*; Prellt die RETURN-Taste, passiert 
‚Übersetzung an die Aufschrift der! „einzugebender Space. Ein solcher ;-;beim C64 nichts. Die letzte Prüf 
„jeweiligen Tasten (zum Beispiel‘. Space wird immer an den Änfang :.* summe steht immer auf dem Bild- 
„RED oder CLR). CBM ist die Com- der folgenden Zeile gestellt. -“schirm. Die Bildschirmhinter- 
“modoretaste ® 6) Die Zeilen sind verwechslungs- ::. grundfarbe ist schwarz. 


Besonderheiten «sicher, das soll heißen, daß erst !-"SYS49152 


ist, Zı 


j=ne Prüfsummen; so Zeilen, die nur '-‘:wechselt werden kann: PRINT .:':sehr deutlich an der Bildschirm- 


.. 


«„REMarks bestehen. . "TSTERFESO" haben gleiche Prüf- !.' sehen. 


+,."..rücksichtigt. Es ist also egal, ob’ 


obwohl gleiche Prüfsummen. grundfarbe belegen. Die oberste, 
;% ausgegeben werden. (Das liegt! Zeile ist vor dem Anfahren mit’ 


*.]) Unsinnige Zeilen besitzen kei- über acht Zeichen hinweg ge-'."Schaltet ein/aus. Das kann man‘: 
„aus Doppelpunkt(en) und/oder N "OSTERFEST" und PRINT .:. farbe und an der obersten Zeile -! 
2) Spaces außerhalb von Anfüh-::.summen "Weil eine Erweiterung vorgese-! 


rungszeichen werden nicht be-‘-'-7) Zeilennummern werden nicht -:- hen ist, fehlen am Ende der ober-:.: 
..in die Prüfsumme einbezogen! .. sten Korrekturzeile acht Zeichen. +;- 


essman PRINT SPC6) oder. ."Also bitte überprüfen, ob die Zei-:.: Der Korrektor belegt etwas mehr 2” 
ne ER »PRINTSPC 5) eingibt .Jennummer stimmt. Beim C64 wer- “ als zwei Pages (circa 550 Bytes) im *. 


Korrektor 


v 

RESTORE :!FOR A=493152 TO 49629:POKE A,234:NEXT :PRINT "MOMENT! 

F=B8:READ A:Y=PEEK (63)+PEEK (64)#256: IF A=8 THEN 288 

READ B,C:FOR D=A TO B:READ A$:IF LEN (A$)-2 THEN 98 

E=ASC (AS) -48-(7 AND AS>"E")ıIF ASC"B" OR A$>"G" OR AS>"i" AND Ası 

"A" THEN 98 

AS=MIDS (A$,2):E=ER1I6+ASC (AS) -48-(7 AND ASY"R*) 

IF AS<{"98" OR A$S>"F" OR A$>"39" AND As<"A" THEN 98 

F=sF+E:ıPOKE D,E:iNEXT :IF F=C THEN 28 

PRINT "PRUEFSUMMENFEHLER: SOLL"’C*, IST"F:GOTO 198 

PRINT "EINGABEFEHLER: *"As$ıYy=8 

Z=PEEK (63)+PEEK (64) 4256:1A#=STR$ (Y)+STRS (-Z)ı IF Y=8 THEN As=STRs # 

(2) TE 

PRINT *LDOWNILIST"AS"L2UP)J"F:POKE 198,1:POKE 631,13:END 

PRINT ER ERINT "tDOWNISOLL DAS MASCHINENPROGRAMM 

ABGESP BEE 

INPUT ” RDENL2SPACESIJL3LEFTI"SAS: IF A$X>"J" THEN 308 < 

syYSs 57812"@:149152 KORREKTOR*" ,S:ıPOKE 193,8:POKE 194,192:POKE 174,222 

POKE 175,193:SYS 62957:VERIFY "49152 KORREKTOR*,8,1 

AS="": INPUT "TDOWNIKORREKTOR AKTIVIEREN? JISLEFTI"JAS: IF AS="J" THEN 

Sys 49152 

REM HAUPTPROGRAMM 

DATA 49187 ,49298 ,2342 ,A9 ,AE ,A2,C8,8D,82,93,8E,03,03,988,A8,1F,BI,E2 

DATA C1,99,88,84,88,18,F7? 

DATA 49323 ,49387,9136,4C ,31 ,EA,78,A9,2E ,A2,C08,8D,14,83,8E,15,03,58 

DATA A9,88,8D,E1,C1,28,68,A3,8C,E1,C1,86,7A,84,7B,AC,Ed,C1,F8,13,R08 

DATA 18,B9,E1,C1,99,F1,C1,A9,A8,99,E1,C1,88,D8,F2,8C,E8,C1,28,73,88 

DATA AA,F®,D3,88,84 ,3A,98,55 

DATA 49467 ,49629, 19958 ‚4C ‚96 ,A4 ,4C ‚88 ,AF ‚28,6B,A3,28,79,A5,84,8B,n8 

DATA 898,84,08,84,45,84,46,84,89,C8,BE,FF,81,F8,38,A5,08,38,08C ,Ed,28 

DATA FO ,F2,E8,3A,F8,09C ,E8,8F,F8,28,Ed,22,D098,02,493,398,09,81,85,88,8A 

DATA AS5,83,F8,06,8A,59,88,CA,D®,FA,18,65,45,85,45,998,982,E6,46,E6,53 
n5,09,293,907,85,089,18,C2,46,08,98,21,A8,FF,8C,E8,C1,A2,14,28,53 
C1,C8,A9,BD,993,E2,C1,A93,BE,C8,99,E2,C1,C8,A2,95,208,B9,C1,A3,BB 
99,E2,C1,4C,A4 ,A4,84,08,B5,00,85,63,B5,01,85,62,R2,990,38,28,43 
BC ,28,DF ‚BD ,A4 ,88 ,AA,C8,BD,808,81,F80,08,09,88,99,E2,C1,E8,D8,F2, 


REM EINYAUSSCHALTER 

DATA 49152,49186,5131,AD,83,03,C9,C8,D8,89,AD,DE,Ci,AE,DF,C1,4C,27 
DATA C®,8D,DF,C1,AD,82,83,8D,DE,C1,A9,Ad,A2,1F,SD,E2,C1,CA,18,FA 
REM EINGABESICHERUNG 

DATA 49285 ,49322 ,4626 ,AD,E1,C1,D98,21,8D,20,08,8D,21,08,45,DA,3®8,BE 
DATA 89,898,85,DA,A® ,27,A9,28,99,28,04,88,18,FA,A6,086,D8,85,A9,11,28, 
35,EB 

REM ENDE BZW. SIMON'S ANPASSUNG 

REM DUCH WEGLASSEN DES 1. KOMMS: 

DATA ‚49293,49295,792 ,EA,EA,EA, 


on C64: oben Diskettenversion, unten Änderungen für Datasette‘- ® 


288 PRINT "[DOWNIFERTIG. ":PRINT "[DOLWNISOLL DAS MASCHINENPROGRAMM AUF 
KASSETTE 

218 INPUT "ABGESPEICHERT WERDENL2SPACESIJL3LEFTI";A$S: IF A$<>*"J" THEN 398 

228 SYS 57812"49152 KORREKTOR",1,1:POKE 193,8:POKE 194,192:POKE 174,222 

238 POKE 175,193:5YS 62957:PRINT "BITTE DIE KASSETTE ZURUECKSPULEN UND 

248 INPUT "RETURN DRUECKEN"SAS:VERIFY *49152 KORREKTOR",I 


000 0 6 0 0 #0 8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 © @ © iM © W_@ co 0 6 0 0 0 0 ee oe 
oe 0 002 0 00 00 0 0 0 0 0 0 0 0 0 0 DB 0 0 0 0 O © © © © 0 co 0 0 0 2 0 0 oo 0 5 = 
oe 00006656000 0 0 0 0 0 0 0 0 0 0 © © 0 &_@_© © mw @ eo Mn 0 0 0 0 ee oe 


"49152 98 Eirörkspulen und dann RETURN 


wa SIMON!’ s-BASIC eine schwar- 


ee ze Schrift besitzt, muß die Bild- 


MLaden und Saven. : u schirmhintergrundfarbe nn einen 
Die Abspeicherfunktion des Kor-% = anderen Wert gesetzt 


rektors speichert nicht das BASIC-$$Das abgespeicherte Maschinen-X%Dies übernimmt die SIMON s-An- 
Re Programm ab, sondern das gene-w&programm wird automatisch ge- C% passung, indem man das erste 
Mrierte Maschinenprogramm. e VERIFYt. Deshalb muß man die®%$Komma auf Zeile 5000 wegläßt. 


BERELSETTEETETELT RTL TETTT TH LT LT LT LT LT TE TR LT RL RL RE TI 


u“. 0 0 0 0 0 0 5 0 8 5 5 0 5 5 5 © u» 


Riesen werden soll. 


.. “arbeit und weist während des Ein-9 nie Daten: würd Ba @wird dieser Wert dann als An-% 
” ; tippens auf Fehler hin. Außerdem»% 2 E BR en a ezima-x Kfangsadresse genommen. ee 
= n' “entfällt das langwierige Einlesen“ er Form eingegeben. Dazu Ba *—INST/DEL— ‘ 


hen die Tasten 0-9 und A-F zur 


= a. 
. „der Datas durch den Computer.) Ve sfügung. Zur Stehanıng - des 


"wlöscht ein einzelnes Zeichen oder« 


'. "Der Checker ist eine Ärt Textedi-"" ee h fol enfügt eines ein. . 
= «tor für Maschinenprogramme, ders“ 1 m r 5 a gen —CLR— = 
A ‚jede einzelne „ Programmzeile" en loch eine ganze Zeile und ET 
oe "(zu je 8 Byte) anhand einer mitein-se Sr „n.die Zeile zur Veränderungfrei. « 
'n *zugebenden Prüfsumme auf Rich-* Bevor man Daten eingibt, age „".—K- a 


stigkeit testet und sich bei Tippfeh-s} «man mit Y die Startadresse einge-‘% 
lern akustisch bemerkbar macht. ‘ ben, ab der das Programm einge-.* 


«löscht ebenfalls eine Zeile, jedoch’, 
‚verbleibt keine Leerzeile, son 


rer, 
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x 68 GOTO 19888 ses 
Ir 78 ı E 

. 1088 DATA 11,8,193,7,158,59,48 ,34 ‚52, ++ rrr,169,.,133,253,133,254 ssıs 
> 1818 DATA 32,248,15,32,138,9,169,63,191,1398,2,169,24,141,5,228 5341 » 
s 1828 DATA 32,47,8,32,163,19,76,38,8,32,39,19,169,,133,199,165,198 6185 
“ 10838 DATA 248,252 ,32,39,18,173,119,2,96,189,,141,32,208,189,14 s334 Ü 
n 1848 DATA 141,33,288,169,,182,216,132,27,132,31,134,28,134,32,169 sss3 # 
‚n 1858 DATA 4,133,38,132,29,169,,145,27,169,160,145,29,208 ‚288,245 sooe M. 
ER 10868 DATA 230,28 ,238 ,30 ,232 ‚224 ‚229,208 ,236 ,162,23, 160,85,189,6 ses2 
20 1879 DATA 145,31,288,145,31,298,208,192,198,144 ‚243,208 ,288,169 usa N 
[a°, 1888 DATA 6,145,31,208,145,31,185,31,24,195,49,133,31,144,2,238 s562 RR 
FE 18938 DATA 32,282 ,208,218,169,5,162,48,169,176,153,,4,139,9,128 5354 Ki... 
2. 1188 DATA 153,1,4,200,208 ,208 ,232 ‚224 ‚56 ‚288 ,237,162,8,189,238 5854 
[a 1118 DATA 8,133, ,4,208 ‚202 ‚288 ‚246,96, 1608,88,169,49,132,27,133,28 5875 

DOM 1128 DATA 169,23,133,2,165,97,133,25,165,98,133,26,32,245,8,165 8998 

Ist» 1138 DATA 25,24,185,8,133,25,144,2,230,26,169,27,24,105,7,133,27 6207 

ie 1148 DATA 144 ,2,230,28,198,2,2998,227,96,141,149,147,139,136,131 5376 

ja 1158 DATA 165,253,24,191,25,72,165,254 ,191,28,32,182,9,194,32,182 5838 

st. 1168 DATA 9,32,131,9,165,25,133,29,165,26,24,105,64,133,38,1685 s261 

I 1178 DATA 28,133,31,165,25,18,38,31,18,38,31,169,688,133,32,165 5412 

IB 1188 DATA 25,74,74,74,41,7,1698,185,152,9,169,,49,31,248,34,168 5657 

5% 1198 DATA ‚132,13,177,29,32,102,9,32,131,9,164,13,2088,192,8,208 5476 
et 1288 DATA 239,32,42,11,32,131,9,32,131,9,32,192,9,78,181,9,182 5408 
teten? 1218 DATA 28,168,,169,168,145,27,32,131,9,202 ‚208,244 ‚96 ,72.,74 57668 
eileieiet 1228 DATA 74,74,74,32,116,9,184,41,15,76,1168,9,24,1905,246,144,2 6087 

Br 1238 DATA 195,8,185,186,41,191,168,,145,27,230 ,27,208 ,2,230,28 5848 

. 1248 DATA 96,169,15,141,24,212,32,48,10,32,65,8,76,189,8,128,64 5456 

2 1258 DATA 32,16,8,4,2,1,169,88,168,4,133,29,132,39,162,22,168,39 56793 


132 ,32,169,79,133,31,164,31,177,29,164,32,145,29,198 
31,199,32,16,242,165,29,24,105,48,133,29,144,2,238,30 
202 ‚208 ,220,169,192,133,27,189,7,133,28,165,97,24,185 
176,133,25,165,98,105,,133,26,76,245,8,169, 152, 168,7 
133,29,132,30,162,23,169,39,133,31,169,79,133,32,164 
31,177,29,164,32,145,29,198,32,198,31,16,242,165,29,56 
233,48,133,29,176,2,198,30,202 ‚288 ‚228,1689,89,133,27 
169,4,133,28,163,97,133,25,165,98,133,26,76 ,245,8,164 
89,177,181,73,5,145,101,96,169,,133,97,133,98,169,,133 
99,133,108,169,85,133,101,169,2168,133,102,96,198,108 
48,12,165,101,56,233,48,133,181,1768,2,198,1902,96,230 
108,163,97,56,233,8,133,97,176,11,198,98,16,7,169, ,133 
97,133,98,96,76,230,9,230,180,165,1908,201,23,240,12,165 
101,24,105,48,133,181,144,2,238,102,96,198,188, 165,97 
24,185,8,133,97,144,2,238,98,165,98,201,63,288,11,185 
97 ,201,8,208,3,169,,133,97,36,768,160,9,2081,17,208,3,76 
118,18,201,145,208,3,76,69,18,201,29,208,3,76,184,11 
291,157,208,3,76,58,11,201,13,208,3,76,23,12,201 ,48,144 
15,201,59,144,8,201,85,144,7,201,71,176,3,76,152,11,201 
19,208,3,76,155,12,201,147,208,3,76,149,12,281,28,208 
3,76,238,12,201,148,208,3,76,191,12,201,72,208,6,32,48 
18,76,189,98,201,73,208,3,76,17,13,201,75,208,3,76,133 
13,201,83,209,3,76,13,16,201,76,288,3,76,121,15,201,89 
208,3,76,104,16,201,80,288,3,78,178,18,96,162,8,168, 
24,169,,113,29,73,255,200 ,202 ,208 ,248,96,199,99,165,99 
16,3,230,99,96 ,201,2,240 ,243,201 ,5,240 ,239 ‚281 ,8,248 
235,281,11,248,231,201,14,249,227,281,17,240 ,223,201 
20,240,219,201,25,208 ,223,169,22,133,99,96 ,230 ,99, 165 
99,201,28,208,3,198,99,98 ,201 ,2,248 ,241 ,281,5,248,237 
201,8,240,233,201,11,240,229,201,14 ,240,225,281,17,240 
221,201 ,20,249,217,201 ,23,208,175,189,28,133,99,96,72 
32,160,12,104,41,63,9,128,164,99,145,29,76,104,11,160 
‚177,27,41,127,201,49,178,2,105,59,233,48,76,131,9,32 
168,11,10,10,18,10,133,13,32,168,11,5,13,96,165,101,133 
27,165,102,41,3,9,4,133,29,32,4,12,32,232,11,185,152 
9,133,103,73,235,168,,49,31,145,31,96,165,39,56 ,233,64 
133,31,165,29,10,38,31,10,38,31,169,68,133,32,165,29 
74,74 ,74,41,7,168,98,165,100,18,18,18,24,181,97,133,29 
165,98,105,,105,64,133,30,96,32,208,11,168, ,132,2,32 
185,11,32,131,9,164,2,145,29,208,192,8,208 ,239,32,131 
9,32,131,9,32,185,11,133,13,32,42,11,197,13,248,8,32 
97,12,133,99,98,165,103,160,,17,31,145,31,169,,133,99 
32,110,18,169,160,32,118,12,160,28,32,134,12,76,143,12 
169,60,32,110,12,169,88,32,134,12,76,143,12,141,1,212 
169, ,141,,212,169,17,141,5,212,169,241,141,6,212,169 
17,141,4,212,968,162, ‚202,208 ,253,136 ‚208 ‚248 ,,96,,169, 
141,4,212,96 ,32,200,11,32,189,8,169,,133,99,968, 165,181 
133,29,165,102,41,3,9,4,133,30,98,,1,3,4,6,7,9,.18,12 
13,15,16,18,19,21,22,268,27,32,168,12,1698,27,177,29,201 
160,288 ,27,162,17,188,173,12,196,99,248,14,132,13,202 
188,173,12,177,29,184,13,145,29,208,235,189,168,145,29 
96 ‚,32,1688,12,165,99,240 ,248,162,17,221,173,12,240,3,202 
16,248,188,173,12,177,29,202,188,173,12,145,29,232,232 
224 ,18,208,239,169,160,168,27,145,29,78,58,11,32,4,18 
169,248, 133,31,169,127,133,32,162,7,169,15,133,13,138 
168,177,31,164,13,145,31,198,13,202,16,243,185,32,197 
30,2098,6,165,31,197,29,249,13,165,31,356,233,8,133,31 
176,216,198 ‚32,208 ‚212,32 ,232,11,166,31,185,117,13,133 
13,185,125,13,168,,49,31,74,9,133,2,177,31,37,13,5,2 
143,31 ,232 ,248,8,48, 126, ,68,8,76,181,13,32,189,8,40,96 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


‚128,192 ,224 ,248,248 ‚252 ‚254 ‚255, 127,63,31,15,7,3,1,32 
4,12,168,7,162,159,132,13,138,168,177,29,164,13,195,23 
282,198,13,16,243,165,29,24,185,8,133,29,144,2,238,30 
169,29,201 ‚248,208 ,228,165,38,2081,127,208,,214,32,49,12 
32,232,11,162,255,24,8,48,62,,68,8,202,228,31,208,246 
185,117,13,61,,68,133,2,189,,68,48,42,57,125,13,5,2,157 
‚698,76,189,8,162,,189,,69,2081 ,255,288,3,232,2088,246,134 
2,162,255,228,2,248,63,189,,68,288,5,202 ‚224 ‚255,208 
242,166,2,189,,68,133,2,188,,165,2,57,152,9,248,3,208 
16,246,132,13,169,,133,98,138,18,38,98,10,38,98,18,38 
98,5,13,19,38,98,18,38,98,198,38,98,133,97,32,54,18,58 
96,1698,7,189,,868,217,117,13,248,3,136,16,248,48,188,132 
2,169,,133,28,138,18,39,28,18,38,28,108,38,28,5,2,18,38 
28,108,38,28,10,38,28,133,27,169,28,24,105,64,133,28,24 
96,134,13,133,29,132,39,165,99,72,165,189,72,165,181 
72,165,i182,72,160,39,169,168,153,,94,136,16,248,168,,177 
29,2498,9,32,42,15,133,,4,2098,288,243,162,,132,99,169 
6,153,,216,153,1,216,208,232 ,228,13,288,247,169,216,133 
192,169,,133,188,133,181,133,32,32,47,8,72,41,98,208 
26,1984,281,13,249,45 ,281 ,28,208,239,163,32,248,2353,198 
99,198,32,169,168,164,99,153,,4,18,222,164,32,184,153 
‚2,196,13,249,212,1649,99,32,42,15,153,,9,230,32,238,99 
288,198,164,32,169,,153,,2,184,133,192,104,133,1981,1984 
133,1989,184,133,99,98,72,169,32,168,15,162,153,32,182 
14,152,162,,168,2,32,189,255,194,168,162,8,169,8,32,186 
233,32,192,2535,169,1,76,64,15,78,73,76,69,78,853,77,89 
32,,72,74,74,74,74,74,170,104,41,31,29,56,15,98,,168 
128,192 ,64,224,192,224,169,8,32,188,255,169,111,32,1598 
2e55,169,39,1869,168,153,,4,169,,153,,216,196,16,243,168 
‚32,165 ,233,201,13,249,9,92,42,15,1353,,4,208,208,248 
173,,4,13,1,4,41,15,72,32,171,255,104,96,169,,32,253 
14,208,1108,162,8,32,198,255,169,,133,144,133,27,32,297 
e55,133,253,32,297,255,141,254,,32,248,15,169,68,133 
28,169,,133,2,133,29,169,64,133,30,165,144,2088,53,168 
‚32 ,207,255,145,29,288,192,8,208,246,168,,166,2,177,27 
29,152,9,145,27,238,2,232,224,8,298,6,169,,133,2,238 
27,165,29,24,1805,8,133,29,144 ,207,238,39,165,39,281,128 
288,199,32,204 ,255,169,8,32,1953,2553,32,48,18,76,146,9 
169,,133,198,165,198,2498,232,208,235,168,,152,153,,68 
208,208 ,250,96 ,32 ,204 ,255,169,8,32,195,255,76,146,9,32 
222,13,176,83,165,27,72,163,28,72,169,1,32,253,14,133 
31,184,133,28,104,133,27,165,31,208,197,169,,133,29,169 
64,133,39,162,8,32,291,255,165,253,32,219,255,165,254 
32,218,2553,163,29,197,27,208,6,165,398,197,28,248,148 
168,,177,29,32,218,255,208,192,8,208,246,165,29,24,1085 
8,133,29,144 ‚,223,230,38,288,219,76,189,8,162,4,1698,16 
169,136,32,182,14,169,15,133,27,169,4,133,28,32,185,11 
141 ,254,,32,185,11,141,253,,76,146,9,653,78,70,65,78,71 
83,65,68,932,69,83,83,69,32,,24,105,2468,144,2,185,6,1985 
38,76 ,218,2535,72,74,74,74,74,32,152,18,189,41,13,76,132 
16,32 ,222,13,176,174,169,,32,189,255,169,4,178,168,,32 
186 ,255,32,192,2553,182,4,32,201,255,1698,6,169,32,32,218 
255 ,136,298,248,162,7,188,,152,32,164,16,169,32,32,2108 
255,200 ,202,16,243,168,5,185,188,17,32,210,255,1936,16 
247,169,13,32,218,255,32,219,255,165,253,133,31,165,254 
133,32,169,,133,29,169,64,133,38,165,29,197,27,208,6 
165,38,197,28,248,78,165,32,32,164,16,165,31,32,164,16 
169,32,32,2180,255,32,219,255,168,,177,29,32,164,16,189 
s32,32,218,255,208,192,98,298,241,169,32,32,219,233,32 
218,255,32,42,11,32,164,16,169,13,32,218,255,165,31,24 


... 
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DATA 185,8,133,31,144,2,238,32,165,29,24,185,8,133,29,144 
DATA 170,2398,38,288,166 ‚32,204 ,255,1869,4,76,195,235,77,85 
DATA 83,75,72,67 

RESTORE :FOR 1=29843 TO 44655: READ SıPOKE 1,SıNEXT 1 

POKE 45,114:POKE 46,17 

PRINT "I[CLR ,2DOUNISAVE" CHRS (34) "CHECKER.PRG" CHRS (34)",8” 
PRINT "CHOMEI"sS END 


Checker für Diskettenbetrieb TEE 


14,152,162,,168,2,32,189,255,1909,134,147,182,157,76,91,255 6283 
‚32,163 ,235,281,13,248,9,32,492,15,153,,4,208,208,160 5653 
1,177,178,133,253,208,177,178,133,254,56,76,125,245,169,,32,253 7976 
14,234 ‚234 ‚32 ,248,15,32,208 ,247 ,32,23,248,176,88,32,175 5732 
245,165,193,249,7,32,234 ,247,144,9,176,74,32 ,44 ,247 5859 
248,63,176,67,165,144,41,16,288,61,133,195,169,64,133,196 sas2 
32,106,15,176,58,138,105,7,170,144,2,2390,175,134,29,138,41 68484 
56,74,74,74,169,165,175,56 ,233,64,6,29,42,8,23,42,133 6193 
29,162, ,228,29,248,8,169,255,157,,60,232,208,244,185 6948 
117,13,157,,60,78,23,8,76,198,9,498,10,76,146,9 5973 
222,13,176,83,32,253,14,32,208 ,247,32,36,248,178,59,32 53962 
143,246,165,27,133,174,165,28,56,,233,64,133,175,165,254,133 6658 
194,165,253,133,193,24,1901,174,133,174,165,175,181,194,133 6223 
175,163,1,32,106 ,247,176,19,169,,133,193,169,64,133 s231 
194,185,28,133,175,185,27,133,174,32,103,248,76,25,8,32 s228 
PRINT "LCLR,2DOWNISAVE" CHR$ (34) "CHECKER" CHR$ (34) 2751 

“ 

x EEE 

® ‚Checker; Änderungen für Datasette SrstEsusnstrEsanstsrsTesssrssresrsrnets -n.» = - -.... .-..= ..» .-..» 

x .. 

” “. nn... 5 5 5 a a a ee een ...000.0,0,0,9 a u En in in 

. ‚dern der Rest des Programms & Punkt. Ein Abspeichern ist erst.‘-‘um das Programm als Maschinen-!-! 

rutscht nach „möglich, wenn alle Leerzeilen ent- Apee auf Diskette zu schrei- 2 

I — »fernt wurden. „ben. Das File kann dann mit Load», 

eitıkann eine Zeile einfügen; der Bau —L— 'cın ı„CHECKER.PRG",8 geladen und. . 

R Bi des Programms rutscht eine Zeile ‚lach ein abgesavtes De: ‘mit RUN gestartet werden. Auf!- eo 

E “nach unten ‚wieder, um es zum Beispiel zu er, “keinen Fall den Lader starten und::. Da 

7 2 H— «gänzen oder zu verändern. "den vorgesehen Save-Befehl nicht +: 

e..,setzt den Cursor an den Textan-.: “Eine Zeile wird mit RETURN in bestätigen Das Programm über-.: 

E fang. ‚den Speicher übernommen. Hier .“.‘schreibt sich selbst und ist des-‘- 

ur... HOME— ‘findet auch der Prüfsummentest‘-':halb nicht mehr auf normalem :. . 

Be —CSRS-— »"rechnete Prüfsumme mit der ein-‘STOP-RESTORE im Basic und hat . 


5: “Der Cursor wird mit den Cursor-'..gegebenen überein, ertönt ein.‘..den abgetippten File noch nicht 
E-: “tasten gesteuert. Erreicht er den :;-:kurzer hoher Ton. Ist die Zeile feh-!-: :„gesaved, kann man mit SYS 2073 *: 
Ei ‚oberen oder unteren Bildschirm- ..:lerhaft, ist ein langer, tiefer Ton zu‘;.; wieder in den Checker springen, »: 


«„setzt ihn an den Zeilenanfang. . "statt. Stimmt die vom Computer er-'. "‚Weg zu saven. Ist man mit RUN/ ® 
-zand, wird der Bildschirm ent-'. «hören, und der Cursor springt:!- “ohne das eingegebene Programm .: . x 


««sprechend gescrollt. „wieder an den Zeilenanfang (Zeile. -"zu verlieren. ” 
Be —P— "wird nicht übernommen). Die aku-!-"Der Checker belegt den Spei- es RR 
E.....Ein im Checker befindliches Pro-. er Kontrolle ermöglicht, RR cherbereich $0801-$1175. Im Be- .:...:.: 
E....."gramm wird ausgedruckt. „gramme einzugeben, ohne stän--.reich von $4000-$8000 stehen die .+.:.:.:.: 
Be S— ‘dig den Bildschirm im Auge ha-.:. „Textdaten“. Die Flags zum Kenn- ra 
.......Das Programm wird auf Diskette “ben zu müssen. E zeichnen belegter Zeilen liegen :!-!-‘-‘-! 


"abgespeichert. Sollte sich im: ‚Der Basiclader ist so gemacht, :.: von $3000-$3FFF. er 
Text" eine Leerstelle befinden, ‘.::daß man nach dem Einlesen der! :\(M. Köfferlein/W. Wintersberger/ '' ee 


..e.n 0. 
Pa DE IE 


‘springt der Cursor an diesen „‚Datas nur RETURN drücken muß, . .. wosch) a 
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Super-Tool 


Monitor knackt 
Geheimbefehle 


Der Mikroprozessor des C64 hat 
über hundert geheime Befehle. 
Von offizieller Seite werden sie 
verschwiegen oder in ihrer Be- 
deutung heruntergespielt. Nur ge- 
legentlich geistern sie als „illegale 
Opeodes" durch Insider-Kreise. 
Profis nutzen die verborgenen 
Kommandos für raffinierte Kopier- 
schutzverfahren. Auch der um- 
strittene Killerschutz von Dirk Has- 
singer (RUN 4/85) setzt illegale Be- 
fehle ein, um dem C64 den Garaus 
zu machen. 

Daß der 6510/6502 mehr kann, als 
behauptet wird, läßt schon ein 
Blick in seine Befehlstabelle erah- 
nen. Dort finden sich insgesamt 
151 Opcodes. Jeder Opcode ist 
ein Byte lang. Ein Byte kann aber 
218=256 verschiedene Werte an- 
nehmen. Wie reagiert der Prozes- 
sor, wenn er auf eine der restli- 
chen 105 Zahlen stößt? Die Fach- 
literatur hält sich in dieser Frage 
vornehm zurück. Die weißen Flek- 
ken auf der Prozessor-Landkarte 
werden meistens gar nicht er- 
wähnt oder mit dem Begriff 'Fu- 
ture Expansion’ (zukünftige Erwei- 
terung) abgehandelt. 


105 Befehle 
Bere 


RUN-Programmierer Klaus Bur- 
kert gab sich damit nicht zufrie- 
den. Durch eigenes Experimentie- 
ren knobelte er die Wirkung der 
illegalen Opcodes heraus. Als 
Krönung seiner Arbeit hat er 
'LINEASS'’ geschrieben, einen 
Maschinensprache-Monitor, der 
dort ansetzt, wo andere Monitore 
passen müssen. Zusätzlich zu den 
üblichen Funktionen kann er näm- 
lich alle 105 Geheimbefehle disas- 
semblieren und auch assemblie- 
ren, 

'LINEASS' ist ein voll bild- 
schirmorientierter Maschinenmo- 
nitor mit folgenden Befehlen: 

@: Dos-Befehle: 

@ Befehl wie im DOS 5.1 

@$ Directory 
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Geheimbefehle 
schützen und kürzen 
Programme. Wer sie 
nutzen will, braucht 
einen Spezialmonitor. 
Nur ’LINEASS’ verar- 

beitet alle 105 


illegalen Opcodes. 


@%+#n(n = 8 oder 9) stellt die Flop- 
pyadresse ein 

@ gibt den Disk-Status aus 

B aaaa,eeee: Der Speicherbe- 
reich von aaaa bis eeee wird mit 
einem Byte pro Zeile binär ausge- 
geben. Die Inhalte können durch 
Überschreiben und anschließen- 
des Drücken der Return-Taste ge- 
ändert werden. 

C aaaa,eeee: Der Bereich von 
aaaa bis eeee wird mit 16 Bytes 
pro Zeile als ASCII-Zeichen aus- 
gegeben. Steuerzeichen werden 
als Space dargestellt. Die Inhalte 
können durch Überschreiben und 
anschließendes Drücken von Re- 
turn geändert werden. Steuerzei- 
chen werden dabei durch einge- 
gebene Spaces nicht verändert. 

D aaaa,eeee: Der Bereich von 
aaaa bis eeee wird als Disassem- 
blerlisting in der Form Adresse, 
Hex-Werte, Mnemonics ausgege- 
ben. Das Kommando dient auch 
zum Assemblieren: Durch Über- 
schreiben der Mnemonics und 
Drücken der Return-Taste wird 
ein Befehl geändert. Er wird dann 
vom Lineassembler ausgewertet 
und vom Disassembler neu ausge- 
geben. Anschließend wird die 
nächste Adresse vorgegeben. 

E aaaa: Eine mit RTS endende 
Routine ab aaaa wird aufgerufen. 
Nach Ausführung wird in den Mo- 
nitor gesprungen, und die Regi- 
ster werden angezeigt. 


F aaaa,eeee,xx: Der Speicherbe- 
reich von aaaa bis eeee wird mit 
dem Wert xx gefüllt. 

G aaaa: Es wird ein Maschinen- 
programm ab Adresse aaaa aus- 
geführt. Falls in den Monitor zu- 
rückgesprungen werden soll, 
muß das Programm mit BRK en- 
den. Danach werden die CPU-Re- 
gister angezeigt. 

H aaaa,eeee,xx: Der Speicherbe- 
reich von aaaa bis eeee wird nach 
dem Wert xx durchsucht. Die 
Adressen, an denen der Wert auf- 
taucht, werden ausgegeben. 

L “name“,xx: Das Programm 
"name* wird vom Gerät xx (xx von 
O bis 15) absolut geladen. 

M aaaa,eeee: Der Speicherbe- 
reich von aaaa bis eeee wird mit 
acht Bytes pro Zeile hexadezimal 
ausgegeben. Durch Überschrei- 
ben und Drücken der Return-Ta- 
ste können Änderungen vorge- 
nommen werden. 

Q: Der Monitor wird durch einen 
Software-Reset verlassen (sys64738), 
R: Die CPU-Register und der IRQ- 
Vektor werden angezeigt. Auch 
sie lassen sich durch Überschrei- 
ben und Drücken von Return än- 
dern. 

S "name",xx,aaaa,eeee: Der Be- 
reich von aaaa bis eeee wird als 
Programm "name“ auf dem Gerät 
xx (xx von O0 bis 15) gespeichert. 

T aaaa,eeee,nnnn: Der Speicher- 
bereich von aaaa bis eeee wird in 
den Bereich ab der Adresse nnnn 
verschoben. 

V “name“,xx: Das Programm 
"name" vom Gerät xx (xx von O bis 
15) wird mit dem seiner Lage ent- 
sprechenden Speicherbereich 
verglichen. Bei Differenzen wird 
ein IO-Error ausgegeben. 

X: Der Monitor wird mit einem Ba- 
sic-Warmstart verlassen. 

Die Speicherbereichsangaben 
aaaa und eeee gelten immer ab 
einschließlich aaaa bis aus- 
schließlich (!) eeee. 

Sämtliche Eingaben können in bi- 
närer Form mit vorangestelltem 
Prozentzeichen (%) oder in hexa- 


dezimaler Form mit oder ohne vor- 
angestelltes Dollarzeichen ($) er- 
folgen. 

Wird beim B-, C- oder M-Befehl 
nur eine einzige Adresse angege- 
ben, so wird nur eine Zeile ausge- 
geben. Wenn beim D-Befehl die 
Endadresse weggelassen wird, so 
wird eine Bildschirmseite ausge- 
geben. Wenn gar keine Adresse 
angegeben wird, wird an der ak- 
tuellen Adresse mit der Ausgabe 
fortgefahren. 

Beispiele: 

D C000,C0040 

Bereich von C000 bis CO3F ein- 
schließlich disassemblieren 

D C000 

Eine Bildschirmseite ab C000 dis- 
assemblieren 

D 

Eine Bildschirmseite ab der zuletzt 
ausgegebenen Adresse disas- 
semblieren 

Die Ausgabe bei den Befehlen B, 
C, DundM läßt sich mit der STOP- 
Taste abbrechen. 

Der Monitor gibt bei Eingabefeh- 
lern und Bereichsüberschreitun- 
gen folgende Fehlermeldungen 
aus: 

CM-Error 

Der eingegebene Befehl kann 
nicht identifiziert werden. 
CR-Error 

Die Syntax des eingegebenen Be- 
fehls ist fehlerhaft. 

OV-Error 

Der erlaubte Bereich für einen Pa- 
rameter wurde überschritten. 


(ASL.ORA) 
(ROL, AND) 
(LSR,EOR) 


(ROR, ADC) 


(LDA. TAX) 


(DEC,CMP) 


(INC,SBC) 


Super-Tool 


IO-Error 

Bei der Ein-/Ausgabe wurde ein 
Fehler festgestellt. 

Der Monitor benutzt außer den 
Speicherstellen $02, $5c-$5f und 
dem Break-Vektor keine 
Systemadressen. Außerdem wur- 
de nur die Routine zum Zeichen- 
einlesen direkt angesprungen. 
Alle anderen ROM-Aufrufe laufen 
über die Kernal-Sprungtabelle 
($if8l—$fff3). Dadurch sollte das 
Programm mit jeder Spracherwei- 
terung zusammenarbeiten. 


Nichtstuer und Chaoten 
Vene 


Die illegalen Opcodes lassen sich 
in vier Gruppen einteilen: 
Aufhänger: Sie bewirken einen 
Systemabsturz, der nur durch ei- 
nen Hardware-Reset oder Aus- 
und Einschalten des Computers 
wieder aufgehoben werden kann. 
Zu dieser Gruppe gehören folgen- 
de Befehle: $02, $12, $22, $32, $42, 
$52, $62, $72, $92, $b2, $qa2, $f2. 
Sie werden durch den Disassem- 
bler als 'ttt! dargestellt und bei 
der Eingabe durch den Line- 
assembler ignoriert. Will man sie 
trotzdem eingeben, so muß man 
sie als einzelne Bytes in den Pro- 
grammtext einschmuggeln, 
Nichtstuer: Diese Befehle bewir- 
ken absolut nichts, Es gibt sie als 
Ein-, Zwei- und Drei-Byte-Befehle. 
Zur Ein-Byte-Gruppe gehören — 
außer dem bekannten NOP ($ea) 
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— $la, $3a, $5a, $7a, $da, $fa. 

Die Zwei-Byte-Gruppe wird durch 
504, $14, 834, $44, $54, $64, $74, 
$80, $82, $89, $c2, $d4, $e2, $f4 ge- 
bildet. 

Folgende Befehle sind Drei-Byte- 
NOPs: $0c, $1c, $3c, $5c, $7c, $dac, 
$fc. 

Diese Befehle werden als '*+#' 
disassembliert und bei der Einga- 
be ebenfalls ignoriert. 
Doppeldecker: Die Befehle dieser 
Gruppe fassen zwei normale Be- 
fehle der gleichen Ädressierungs- 
art zu einem einzigen zusammen 
(Bild 1). So spart man Speicher- 
platz, Auch laufen Programme mit 
den zusammengesetzten Befehlen 
schneller. Ein Doppelbefehl benö- 
tigt nämlich weniger Taktzyklen 
als seine beiden Teilbefehle zu- 
sammen. 

Nicht genug, daß diese Befehle 
für zwei schuften: Sie stellen auch 
noch Adressierungsarten zur Ver- 
fügung, die es für ihre Teilbefehle 
sonst nicht gibt! So können die 
Schiebe- und Rotierbefehle end- 
lich mit der indirekten Adressie- 
rung verwendet werden, was zum 
Beispiel bei der Manipulation von 
hochauflösender Grafik sehr nütz- 
lich ist, 

Beispiel: 

SLO ($fc),Y 

Das angesprochene Byte wird um 
ein Bit nach links verschoben 
(ASL). Der zweite Teilbefehl 
(ORA) hat nur Auswirkungen auf 
den Akku-Inhalt. Für das betroffe- 
ne Byte ist der neue Befehl daher 
mit- dem (nicht existierenden!) Be- 
fehl ASL ($fc),Y gleichwertig. 

Mit dem DCC-Befehl lassen sich 
Schleifen effektiver gestalten. 
Statt der konventionellen Befehls- 
folge 

DEC Zähler 

LDA Zähler 

CMP #Untergrenze 

BNE Loop 

geht's jetzt einfacher mit 

LDA #Untergrenze 

DCC Zähler 

BNE Loop 

Der SAX-Befehl legt das Ergebnis 
einer UND-Funktion von A und X 
im Speicher ab. Beim SAH-Befehl 
geschieht das gleiche. Zusätzlich 
wird aber noch mit dem High Byte 
+1 der Adresse undiert. Beispiel: $ 
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se s2 s4 
*@8 BRK JSR - RTI 


wB1 ORA t,X) AND C,%) EOR (,X) ADC (,% 
144 


+22 + ar 
+83 SLO (,X) RLA (,%X) SRE (,%) 
s84 xx 2 
»85 ORA 2 
<a% ASL 2 
+87 SLO 2 
as PHP 

+27 ORA M 
tBa ASL 

sab ANc u 
sac Ki - 
sed ORA - 
sBe ASL - 
s8f SLO - 
*18 BPL REL 
sı1 ORA C),Y 
s12 + 

sıa SsLo (),Y 
siıa 8X 2 
.*15 ORA 2,X 
#18 ASL 2,X 
%17 SLO 2,%X 


EOR (),Y 


mt 
SRE C),Y 
xxx 2 
EOR 2,X 
LSR 2,X 
SRE 2,X 
*18 CLC eLI 


819 ORA -,Y EOR -,Y 
*la var “u. 
sib SLO -,Y SRE -,Y 
sic xH8 - xx - 
std ORA -,X EOR -,X 
sle ASL -,X LSR -,X 
$1# SLO -,X SRE -,X 
#1 ss 


CPX # 
MP (,%) SBC (,% 
wuz zz 
DEC ,% 105 (,% 
c CPX 


m 
- 
m 


33333 


ld 2: Alle legalen und N 


LDA #3 

LDX #5 

LDY #7 

SAH $fe00,Y 

Das High Byte ist $fe. Es wird also 
#3 AND #5 AND #$ff = #lin 
Adresse $fe00+7 = $fe07 gespei- 
chert. Wem dieser Befehl seltsam 
vorkommt, der wird sich erst recht 
bei der nächsten Gruppe von Op- 
codes wundern. 


"Chaoten: Die Befehle der letzten 


Gruppe scheinen die am wenig- 
sten beabsichtigten Befehle zu 
sein. Sie führen komplexe Opera- 
tionen durch, die in einigen Fällen 
recht undurchsichtige Resultate 
ergeben. 

S0b ANC # führt AND #xx aus 
und transportiert das Negativ-Flag 
ins Carry-Flag. 


'$2b Wirkung wie $0b. 


S4b ASR # führt AND #xx und 
LSR aus. 

$6b ARR # führt AND #xx und 
ROR aus. 

S8b AXA # führt TXA und AND 
#XX aus. 

$9b SSH —,Y 

Das Ergebnis der UND-Funktion 
von Akku und X-Register wird im 
Stackpointer abgelegt. Danach 
wird dieser mit dem High Byte +1 


14 QUD Spezial ı 


RE DNECENE-TERH SOHLE ISA 


der Adresse undiert und das Re- 
sultat absolut,Y-indiziert abge- 
speichert. 

$9c SYH —,X 

Das Ergebnis der UND-Funktion 
zwischen dem Y-Register und 
dem High Byte + l der Adresse 
wird absolut,X-indiziert abgespei- 
chert. 

$9e SXH —,Y 

Wirkung wie bei $9c (SYH), je- 
doch mit vertauschten Rollen für 
X- und Y-Register. 

$ab 7??? # 

Wirkung bislang nicht geklärt. 
Der Befehl kann jedoch als 
?7?? #xx eingegeben werden. 

$bb AST —,Y 

Das Ergebnis der UND-Funktion 
zwischen dem Stackpointer und 
dem Speicher wird im Stackpoin- 
ter, im X-Register und im Akku ab- 
gelegt. 

$cb ASX # 

Von dem Ergebnis der UND-Ver- 
knüpfung von Akku und X-Regi- 
ster werden #xx subtrahiert. Das 
Resultat wird im X-Register abge- 
legt. 

SebSBC # 

Wirkung wie Standard-Befehl $e9. 
Bild 2 zeigt alle legalen und illega- 
len Opcodes auf einen Blick. 


Geheimer 


Programmschutz 
ea ec 


Bild 3 zeigt, wie man die Geheim- 
befehle zum Programmschutz ein- 
setzt. Das abgebildete Programm 
führt die Operation 

LOAD "A",8,1 

aus. Dabei soll das geladene Pro- 
gramm "A" wichtige Daten oder 
den eigentlichen Kopierschutz 
enthalten. Ziel ist es, den Pro- 
grammteil, der die Ladeaktion 
durchführt, vor neugierigen Blik- 
ken zu schützen. Dazu wird massiv 
Gebrauch von illegalen Opcodes 
gemacht. Das richtig entschlüssel- 
te Programm (Bild 3a) zu verste- 
hen ist schon schwer genug. Wer 
dann noch ohne Geheimmonitor 
ans Werk geht, ist vollends verlo- 
ren. In einem „legalen" Disassem- 
bly (Bild 3b) wimmelt es nämlich 
von Fragezeichen. Schlimmer 
noch: Wo der Normalmonitor ei- 
nen Befehl richtig verdaut zu ha- 
ben scheint, ist besondere Vor- 
sicht geboten. Oft ist er nur in eine 
der Fallen gegangen, die im Pro- 
grammtext gestellt worden sind. 
So finden sich an den Adressen 
$901b, $9022, $9025 und $9028 
„Nichtstuer“-Befehle von zwei 
Byte Länge. Sie sind für den Pro- 
grammlauf bedeutungslos und 
dienen nur dazu, Verwirrung zu 
stiften. Ein konventioneller Moni- 
tor kann nichts mit ihnen anfangen 
und wird sein Glück mit ihren 
Operanden versuchen. Und die 
entsprechen „zufällig“ offiziell zu- 
gelassenen Opcodes. Der Monitor 
disassembliert sie bereitwillig als 
Programmbefehle und gaukelt 
Sinn vor, wo keiner ist. 

Wie die Beispiele zeigen, lassen 
sich die Geheimbefehle recht 
nutzbringend anwenden. Warum 
finden sie dann so wenig Beach- 
tung? Zwei Einwände werden ge- 
gen die illegalen Opcodes erho- 
ben: 

Zum einen gibt es keine Garantie, 
daß sie auf jedem 6510/6502 lau- 
fen. Eine neue Prozessorversion 
könnte intern anders aufgebaut 
sein, so daß die illegalen Codes 
plötzlich einen anderen Effekt hät- 
ten. Die ‚Praxis hat aber gezeigt, 


09988: 
>DE39893: 
»DE9995: 
»DE93888: 
»DEIBBHA: 
»D+9B88D: 
>DESBBF : 
>DE3B 11: 
>0$939013: 
>DE9916: 
>D599 18: 
>DES9 1B: 
’DE981D: 
>DE3B IE: 
0393821: 
>D59822: 
»D$9824: 
>D+93925: 
>D$9227: 
>D$9928: 
’DE39B2A: 
>DE922D: 


daß sie auf verschiedenen Varian- 
ten des Prozessors ohne Abwei- 
chungen funktionieren. Wahr- 
scheinlich ist ihre Wirkung so eng 
mit der Struktur des Prozessors 
verknüpft, daß es erst bei grund- 
legenden architektonischen Än- 
derungen zu Schwierigkeiten 
käme. 

Der zweite Einwand wiegt schwe- 
rer: Möglicherweise funktionieren 


FOR P=6 TO 1:FOR Z=188 TO 358:5=8 


Super-Tool 


Pointer auf 

Filename 

auf £#AB88 

c’A") 

Laenge des 

Namens =1 

SeKk.äadr 

-1 

Geraete# 

=8 

LOAD-Vektor 
HB 

auf Stack 

LOAD-Vektor 
LE = 


auf Stack 
sAD Flag fuer 
sA2AA,Y LOAD = B 


Bild 3a und 3b: LOAD "A "8,1 mit 
Geheimmonitor (oben) und normalem 


itor (rechts) b et, 

die Geheimbefehle nicht in allen 
Situationen. Manche Befehle 
scheinen nicht korrekt zu arbei- 
ten, wenn während ihrer Ausfüh- 
rung ein IRQ auftritt. Ungeklärt ist 
auch das Verhalten einiger Befeh- 
le im Dezimal-Modus. 

Jeder muß also selbst entschei- 


387A3,Y 


SI0AF ,x 


#358 


#sAaF 


337A3,Y 


383) ,Y 


548 


den, ob er seinen Computer mit il- 
legalen Opcodes füttern will. Auf 
jeden Fall sollte man zweimal hin- 
schauen, ob ein Programm mit 
Spezialbefehlen auch den ge- 
wünschten Verlauf nimmt. 

(Klaus Burkert/Holger Kruse/pk) 


FOR B=| TO I6:READ DiIF P THEN PRINTH 
1,CHRS (<D>; 

S=5+D:NEXT BIREAD CiIF C<C>S THEN 
PRINT "DATA ERROR IN ZEILE*ZIEND 
KENT ZtiF P=Dd THEN INPUT "FILENAME*F 
FS10PEN 1,8,1,F8:PRINTHI,CHRS (8) 
CHRS (19295 

RESTORE tNEXT PiCLOoSE I 

DATA 169,0,141,175,2087,141,176,297, 
141,177,207,141,180,207,141,181,2591 
DATA 287,133,92,133,93,162,248, 192, 
178,207,9,104,141,173,287 ,32,2266 
DATA 19,194,163,69,141,22,3,189,196, 
141,23,9,169,8,141,185,1651 

DATA 2087,174,178,207,154,32,48,193, 
162,0,22,91,241,157,8,2,1878 

DATA 232,201,13,208,245,169,8,157, 
e55,1,169,255,141,182,2087,32,2467 
DATA 15,133 ,240 ‚221,201 ,62,2498 ,247, 
162,15,221,128,192,248,7,202,2578 
DATA 16,248 ,232,76,187,192,139,10, 
170,32,111,192,76,49,192,199,2118 
DATA 137,1932,72,189,136,192,72,96,84, 
66,687,69,69,70,71,72,1633 

DATA 76,77,81,82,83,84,86,688,110,196, 
198,198,113,199,189,202,20652 

DATA 17,196,184,195,233,195,161,195, 
185,197,0,199,195,194,138,194 ,2659 
DATA 207,197,220,206,196,197,188,194, 
32,210,255,72,32,223,255,208,2894 


DATA 8,32,225,255,248 ,251,78,49,192, 
104,96 ‚32 ,230,132,13,63,2038 

DATA 32,0,138,19,170,189,222, 182,32, 
169,192,189,223,192,32,169,2149 

DATA 192,32,2308,192,32,69,082,82,79, 
92,0,76,49,192,67,77,1533 

DATA 67,82,73,86,73,79,133,2,104,133, 
s4,184,133,935,152,72,1488 

DATA 160,0,32,8,193,177,94 ,248,3,38, 
162,192,208,244 ,32,8,1793 

DATA 193,104,168,165,2,108,94,9,230, 
24 ‚208 ,2,239,95,96,32,1821 

DATA 24,193 ,201,32,248 ‚249 ‚288,13, 
©839,102,207,134,2,174, 182,207 ,24868 
DATA 189,08,2,166,2,72,184,96 ,32,230, 
192,13,62,0,96,72,1328 

DATA 169,32,32,168,192,169,38,32,168, 
192,104,133,2,74,74,74,1651 

DATA 74,32,82,193,32,168,192,185,2, 
41,15,32,82,193,32,168,1593 

DATA 192,96,9,49,2081,59,144,3,24 ,103, 
7,96,153,2,169,32,1319 

DATA 32,1863,182,169,37,32,168, 122, 
152,2,169,9,6,2,42 ,32, 1411 

DATA 82,193,32,168, 192,202 ‚208,242, 
36,32,15,193,281,36,,248,17,2149 

DATA 201,37,240,75,32,250,193,16,3, 
1652,1,76,187,192,206, 182,2055 

DATA 207,134,2,1693,9,141,183,287, 141, 
194,287 ,32,24,133,32 ,258,,2108 

DATA 1993,98,41,14,183,287,46,,184 ‚207, 


BIN ERBEN ESTERWERE DEM 
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176,794,14,183,207,46,184,2887 
DATA 207,175,66,14,183,287,96,184, 
207,176,38,14,183,287,46,194,2158 
DATA 207,176,508,13,183,287,191,183, 
207,78,155,193,166,2,96,134,2189 
DATA 2,169,0,141,183,287,141,184 ,207, 
32,24,193,32,259,193,48,2086 
DATA 17,14,193,207,46,184,2087,176,1B, 
12,183,207,141,183,207,76,2056 
DATA 217,193,166,2,956,162,2,76,187, 
192,281 ,59,498,7,201,65,1673 
DATA 48,14,56.,233,7,201,98,98,7,201, 
64,16,3,41,13,96,1098 
DATA 163,255,96,169,6,141,32,288,141, 
33,208,32,2308,192,147,154,2213 
DATA 0,32,239,192,14,8,13,204,201, 
205,197,193,211,211,45,54,2011 
DATA 32,32,97.,82,73,94,94,69,78,32, 
49,57,56,53,32,66,986 
DATA 89,32,203,76,65,053,803,32,194,83, 
62,75,69,82,84,13,1349 
DATA 32,32,32,32,73,82,01,32,32,32, 
80,567,32,92,32,65,768 
DATA 32,22,32,83,32,32,32,88,32,32, 
32,93,32,32,32,78,722 
DATA 86,45,66,63,73,98,67,13,82,822, 
s8,8,169,32,32,168,1111 
DATA 192,173,21,3,32,59,193,173,20,3, 
32,59,193,169,32,32,1388 
DATA 168,192,173,181,207,32,39,193, 
173,180,207,32,59,193,173,175,2397 
DATA 207 ,32,47,193,173,176,207,32,47, 
193,173,177.,207,32,47,193,2136 
| DATA 173,178,287,32,47,193,173,179, 
207,32,92,193,36,169,55,133,2159 
DATA 1,76,116,164,188 ,258 ,255,32,15, 
193,208,12,76,33,194,281,1936 
DATA 59,248,5,162,1,76,187,192,32, 
121,193,120,173,184,207,141,2832 
DATA 21,3,173,193,207,141,20,3,88,32, 
121,193,173,183,207,141,1889 
DATA 180,207,173,184,207,191,181,2087, 
92,121,193,173,184,207,208,211,2889 
DATA 173,183,2087,141,173,207,32,121, 
193,173,184,287,288,197,173,183,2737 
DATA 207,141,176,287,32,121,193,173, 
184,2087,208,183,173,1863,2087,141,2736 
DATA 177,207,32,121,193,173,189,207, 
208,169,173,183,207,141,1798,207,2768 
DATA 32,121,193,173,184 ,207,208,153, 
173,183,207,191,179,207,968 ,32 ,2491 
DATA 121,193,173,183,207,133,92,173, 
184,207,133,93,206, 182,287 ,32,2519 
DATA 13,133,201,44 ,248,9,162,1,76, 
i87,192,32,121,193,173,183,2018 
DATA 287,133,934,173,184,207,133,93, 
96 ,32,63,133,2065,182,287,32,2239 
DATA 15,193,201 ,49,298,5,162,1,76, 
187,192,32,121,193,173,184,2819 
DATA 207 ,2408,5,162,2,76,187,192,168, 
8,173,183,207,145,92 ,238,2261 
DATA 92,209,2,238,93,165,92,197,94, 
165,33,2293,935,144,233,36 ,2228 
DATA 234 ‚234 ‚38,63, 195,206, 182,207, 
32,15,193,201,44,248,5,162,2245 
DATA 1,78,187,192,32,121,193,173,184, 
207,2490,53,162,2,76,187,2838 
DATA 132,1608,8,173,183,287,2089,92, 
285,15,169,13,32,168,192,165,21?78 
DATA 93,32,47,193,165,92,32,59,193, 
230,92,208,2,238,33,165,1928 
OATA 92,197,94,1653,93,229,99,144,216, 
38,234 ,224 ,32,121,193,173,2488 
DATA 1793,207,72,98,174,178,2087,154, 
174,177,207,172,176,207,173,175,2678 
DATA 207,72,173,183,207,191,180,207, 
173,184,2087,141,181,287,104,188,2675 
DATA 1980,207,104,104,32,121,193,173, 
173,207,72,40,174,179,287,154,2323 
DATA 174,177,207,172,176,2087,173,175, 
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©207,32,1,195,141,175,207,148,2560 
DATA 176,207,142,177,287,1868,142,178, 
207,8,104,141,179,207 ,32,33,2326 
DATA 194,76,43,192,109,168,109,170, 
184,191,175,207,148,176,287,142,2349 
DATA 177,207,1064,141,179,287,216,88, 
184 ,56,233,2,141,189,207,104,,2346 
DATA 233,08,141,181,287,186,142,178, 
207,32,33,194,76,43,192,32,2083 

DATA 15,193,248,73,281,38,248,103, 
291,35,2408,38,174,182,207,1608,2338 
DATA 2,32,24,193,2088B,251,134,2,173, 
192,207 ,56 ,229,2,32,183,1916 

DATA 255,1693,7,174,185,287,188,15,32, 
196 ‚255,32, 192,255 ,,32 ,231 ,238? 

DATA 255,96,32,121,193,173,184,207, 
208,14,173,183,207,41,246 ,208 ‚2941 
DATA 7,173,183,2087,141,185,207,98, 
162,1,76,187,132,169,13,32,2831 

omTA 168,192,173,185,207,133,186,32, 
120 ,255,169,111,133,185,32,138,2491 
DATA 235,32,165,255,32,168,192,201, 
13,288 ,246,,32,171,235,96,169,2490 
DATA 13,32,168,192,174,182,207,168,2, 
32,24,193,208,251,134,2,1974 

DATA 173,182,207,56,229,2,32,189,855, 
1693,127,174,185,287,168,95 ,2443 

DATA 32,1986,255,32,192,233,169,166, 
32,188,255,165,185,32,158,255,2557 
DATA 169,0,133,144,168,3,132,94,32, 
165,255,133,935,164, 144,288 ,2031 

DATA 47,32,165,235,164,144,288,40, 
1864,94,136 ,288,233, 166 ,,95,32 ,2183 
DATA 203,189,169,32,32,168,192,32, 
155,255,166,144,208,18,178,248 ,2385 
DATA 6,32,168,192,76,55,197,169,13, 
32,166,192,160,2,208,198,1868 

DATA 169,73,133,34,1693,1,162,94,160, 
8,32,1893,255,169,7,174,1881 

DATA 185,207,160,15,32,188,885,32, 
192,235 ,32,231,255,36,32,15,218B 
DATA 193,240,37,201,34,289,247,160,2, 
174,182 ,207,232,134,2,32,2285 

DATA 15,193,240 ,28,201 ,34 ‚209,247, 
173,182 ,207,56,,223,2,32,189,2226 
DATA 255,32,15,193,281,494,248,3,162, 
1,76,187,192,32,121,193,1949 

DATA 173,164,207,248,5,182,2,78,197, 
192,173,183,207,201,28,176,2388 

DATA 244,179,1608,1,168,127,32,186, 
253,96,32,118,197,169,8,32,1988 

DATNn 213,255,76,243,197,32,118,197, 
159,1,32,213,255,76,243,197,2509 
DATA 32,1108,197,206,182,287,32,15, 
193,201 ,44,240,5,162,1,78,1983 

DATN 187,192,169,13,32,168,192,32,63, 
195.169,92,166,34,164,935,2023 

DATA 32,216,255,176,7,165,194,41,63, 
208,1,96,162,3,76,187,1832 

DATA 192,32,15,193,248,16,2086, 182, 
207,32,121,193,173,183,287,133,2325 
DATA 92,173,184 ,207,133,93,206,182, 
207,32,19,1983,208,16,165,92,2198 
DATA 24,109,1,133,94,165,93,105,0, 
123,95,76,92,1938,201,58,1563 

DATA 248,109,201 ,44,248,5,162,1,76, 
127,192,206,162,207,52,15,2999 

DATA 193,201 ,44,208,241,32,121,193, 
172,183,207,133,94,173,184,207,2587 
DATA 133,95,169,13,32,169,192,169,62, 
32,1698,192,169,77,32,168,1871 

DATA 192,169,36,32,168,192,165,93,32, 
s9,133,165,92,32,59,193,1872 

DATA 163,59,32,169,192,1698,0,169,32, 
22,168,192,177,32,32,59,1732 

DATA 193,200,192,8,48,241,165,92,24, 
185,9,133,92,163,93,105, 1864 

DATA 8,133,93,165,32,56 ,229,94,165, 


. 93,223,935,144,180,96,32,1896,, 


DATA 121,193,173,184,207,248,5, 162,8, 


Super-Tool 


7€,187,192,173,193,207,1608,2465 
DATA 0,145,92,230,92 ,288,2,238,93, 
206,182,207,32,15,193,8,1935 

DATA 206,152,207,48,,2088,217,96,32,15, 
193,240,16,,206, 182,207 ,32,2279 

DATA 121,193,173,183,287,133,92,173, 
194,207,133,93,206, 182,207 ,32,2519 
DATA 15,193,208,16,1865,92,24,185,1, 
133,94,169,93,105,08,133,18542 

DATA 95,76,14,139,201,58,248,82,201, 
44 ,248,5,162,1,76,187,1881 

DATA 192,32,121,1933,173,183,207,133, 
94,173,164,2087,133,99,169,13,2202 
DATA 32,169,192,169,62,32,169,182, 
169,66,32,168,192,163,36,32,1879 
DATA 169,192,165,933,32,393,193,185,92, 
22,593,193,169,38,32,168,1878 

DATA 192,160,0,177,32,32,92,193,230, 
32,208,2,230,33,165,92,2050 

DATA 56 ,2293,934,163,33,229,95,144,197, 
26 ,32,121,193,173,134 ,207 ,2308 

DATA 248,5,162,2,76,187,192,173,183, 
207,160,0,145,92 ,239,92,2148 

DATA 208,2,230,93,2086, 182,207 ,32,15, 
193,8,206, 182,297 ,48,,208,2219 

DATA 217,96,32,15,193,240, 16 ,,2088,182, 
207,22,121,193,173,183,287,2313 
DATA 133,92,173,184,207,133,93,208, 
192,207,32,15,133,208,16,165,2239 
onTAa 92,24,105,1,133,99,163,93,1805,0, 
133,95,76,185,199,2081,1701 

DATA 38,240, 1086 ‚201,44 ,248,5, 162,1, 
76,187,192,32,121,193,173,2031 

DATA 183,207,133,994,173,184,287,133, 
95,169,13,32,168,192,169,62 ‚2214 
DATA 32,169,192,169,87,32,168,182, 
169,36,32,168,192,163,93,32,1997 
DATA 53,193,165,92,32,39,193,169,58, 
32,168,192,1680,0,177,52,1841 

DATA 133,2,41,96,2088,4,169,932,133,2, 
165,2,32,168,192,2088,1573 

DATA 192,16,48,234,169,92,24,105,16, 
133,92,165,33,105,0,133,1613 

DATA 93,165,92,56 ,229,94,165,933,229, 
85,144,173,96,160,0,32,1918 

DATA 24,193,240,29,133,2,201 ,32,208, 
18,177,92,41,96,208,4,1698 

DATA 177,92,133,2,169,2,145,92,230, 
92,2088,225,239,93,76,13,1975 

DATA 2098,96,65,65,65,65,65,65,65,65, 
63,66 ,66,66,56,86, 1211 

DATA 686,66,66,66,66,67,87,87,67,67, 
67,67,58,69,68,68,1971 

DATA 69,73,73,73,73,74,74,76,76,76, 
76,76,78,79,89,08,12068 

DNTA 80,00,92,02,82,82,82,82,83,83, 
83,93,93,83,83,83,1316 

DATA 83,083,83,083,83,83,84,94,94,94, 
94 ,94,63,42,99,58,1269 

DATA 78,78,82,83,83,83,83,08,67,67, 
69,73,77,78,88,82,1251 

DATA 86,86,76,76,78,76,77,88,80,67, 
69,69,63,79,867,78,1211 

DATA 78,798,77,83,65,68,68,69,83,79, 
82,72,72,76,76,76,1281 

DATA 79,73,82,99,84,69,65,686,69,69, 
69,76,82,83,84,84,1228 

DATA 84,88,89,65,65,83,89,88,89,63, 
42,94,67,67,88,82,1222 

DnTn 76,82,84,88,65,67,83,81,94,73, 
69,76,75,67,83,87,1228 

DATA 68,73,86,80,88,89,67,67,88,89, 
02,93,67,88,89,89,1294 

DATN 82,88,653,08,89,82,80,65,65,88, 
65,99,69,78,82,65, 1217? 

DATA 73,83,72,08,67,67,68,73,79,69, 
72,65,88,89,72,72,1197 

DATA 98,89,88,69,83,69,63,42,94,16, 
43,76,60,75,43,4,994 

DATA 69,45,43,4,1,75,93,4,60,13,43, 


WR SEEN TER ARD SEM 


sı74 
8437 
Tere 
8317 
6839 
5324 
8336 
6743 
so05 
8582 
5494 
6641 

6683 
6851 

8195 
8817 
ssoi 

8463 
6433 
6064 
6335 
6275 
5634 
5831 

soos 
6336 
CEEE) 
s442 
s338 
ss84 
8354 
6038 
s230 
5788 
6003 
ses2 
s7aı 
s388 
s233 


5475 


78,60,75,43,4,651 

DATA 698,19,43,75,60,75,43,4,88,38,2, 

786,48,12,2,49,664 

DATA 48,47,2,43,1,124,2,49,48,13,2,76, 
48,73,2,49,523 

DATA 48,57,2,75,48,75,2,99,48,92,30, 

76,61,79,30,41,769 

DATA 61,44,30,41,5,35,30,41,61,17,30, 
76,61,75,30,41,678 


DATA 61,21,30,75,61,75,38,41,61,53,8, 


76,51,75,0,50,768 


DATA 51,496,0,598,3,35,8,50,51,18,9,76, 


51,75,9,30,956 

DATA 51,593,0,75,51,75,0,58,51,73,863, 
75,55,65,63,64,872 

DATA 55,23,75,71,8,65,63,64,59,9,63, 
76,54 ,69,63,864,8793 

DATA 55,73,63,72,62,67,63,66,534,48, 
38,39,37,40,398,393,946 

DATA 37,69,38,68,74,40,38,39,37,10, 
38,76,37,40,38,33,718 


DATA 37,22,38,70,6,490,38,39,37,23,23, 


73,26,25,23,27,551 

DATA 26,34,23,28,7,25,23,27,26,14,23, 
76.,.26,75,23,27,483 

DATA 26,20,23,75,26,75,23,27,26,24, 
S6,75,31,24,56,32,613 

DATA 31,33,56 ,42 ,56 ‚24,56 ‚32,31, 11, 
56,78,31,73,56,32,8688 

DATA 31,58,56,75,31,75,58 ,32,31,1,2, 
2,2,2,2,2,438 

DATA 2,3,3,3,3,141,186 ,207,281,108, 
208,3,169,12,96,201,1546 

DATA 137,208,3,169,3,96,41,31,170, 
173,186 ,287,201,0,186,18,1651 


DATA 281,192,16,6,189, 142 ,282,76,77, _ 


202,189,110,282,224,8,248 ‚2268 

DATA 15,224,2,248,18,98,173,186,207, 
74,74 ,74,74,74,170,96,1797 

DATA 32,86,202,189,174,202,96,32,88, 
202,189,182,202,96,0,7,1977 

DATA 8,7,3,3,3,3,1,2,1,8,9,9,9,9,8,8, 
?7s 

DATA 1,8,3,4,4,4,1,11,1,11,9,18,18, 
10,0,7,934 

DATA 8,7,3,3,3,3,1,2,1,2,9,9,9,9,5,8, 
73 

DATA 1,8,4,4,5,5,1,11,1,11,18,18,11, 
11,1,9,183 

DATA 1,1,3,2,2,2,1,1,1,1,3,2,3,3,32, 
15,73 

DATA 193,248,18,206,182,287,32,121, 
193,173,183,2087,133,92,173,184 ‚25335 
DATA 207,133,93,206,182,287,32,15, 
193,208, 12,169,23,133,255,32,2108 
DATA 19,203,198,255,208,249,96,201, 
598,209,3,76,182,284 ,201 ,44,2405 

DATA 240,5,162,1,76,187,192,32,121, 
1933,173,183,207,133,94,173,2172 

DATA 184,207,133,99,32,19,203,1685,92, 
36 ,2293,94,165,33,229,95,2091 

DATA 144 ,242,96,169,13,32,168,192, 
169,62,32,169,192,163,68,32,1948 
DATA 169,192,169,36,32,168,192,165, 
33,32,53,193,165,92,32,59,1847 


DATA 193,169,58,32,168,192,160,0,177, 


32,32,47,193,177,92,32,1814 

DATA 37,202,178,202,1893,25,282,178, 
@224,1,240,16,208,177,92,32,2179 
DATA 47,193,224,,2,240,6,208, 177,92, 
32,47,193,163,32,32,168,1954 

DATA 192,165,211,281,21,49,245,169, 
53,32,168,192,160,8,177,92,2132 
DATA 178,189,29,281,170,189,50,200, 
32,169,192,1893,127,280,32,168,2302 
DATA 192,189,204 ,209,32,169,192,189, 
22,32,168,132,173,196,207,32,2368 
DATN 37,2082,170,224,1,2088,3,76,147, 
204 ,224,2,208,5,169,35,1915 

DATA 32,168,192,224,7,240,8,224,8, 


Spez Um 17 


svı3 


4876 


4321 


4829 


5888 


5511 


8134 


8325 


5733 


5925 


5782 


4837 


5758 


s2a58 


6085 


5338 


3986 


3861 


39388 


4308 


“4821 


8541 


5939 


6332 


6741 


274 


6883 


6868 


5523 


6723 


6634 


6932 


3936 


248,4,224,12,208,53,169,1963 

DATA 48,32,168,192,1693,36,32,168,192, 
224,9,49,3,76,90,204,1683 

DATA 224,6,240,88,169,1,177,98,38,39, 
193,224 ,4,16,3,76,1595 

DATA 147,204,224,4,208,13,169,44,32, 
169,192,159,88,32,165,192,2054 

DATA 76,147,204,224,5,208,13,189,44, 
32,168,192,169,89,32,168,1948 

DnTA 192,76,147,209,224,7,288,18,169, 
44,32,168,192,169,88,32,19708 

DATA 168,192,169,91,32,168,192,76, 
147,204,169,91,32,168,192,169,2168 
DATA 44 ,32,168,192,169,89,32,169,192, 
76,147,209,165,92,24,105,1899 

DATA 2,141,163,207,165,93,105,8,141, 
184,287,160,1,177,982,168,1974 

DATA 4,169,255,133,2,177,98,98,94,189, 
8,133,2,177,92,29,1481 

DATA 189,183,207,141,183,287,165,2, 
183,1949,2087,191,184,2087,32,59,2328 
DATA 193,173,1983,207,32,59,193,76, 
197,204,160,2,177,92,32,593,1989 

DATA 193,160,1,177,92,32,59,193,224, 
9,2408,33,224,10,203,13,1874 

OATA 169,44,32,1698,192,169,88,32,168, 
192,76,147,2084 ,224 ,11,208 ,2124 

DATA 13,169,44,32,168,192,169,89,32, 
1698,192,76,147,204,169,41,1985 

DATA 32,1698,192,1608,0,177,92,32,37, 
©202,170,202,189,25,202,24,1994 

DATA 101,92,133,92,165,953,105,0,1393, 
933,169 ,32,32,169,192,165,1785 

DATA 211,201,39,48,245,98,169,8,141, 
198,207 ,,32,13,193,240,6 ,20633 

DATA 201 ,59,209 ,242,248,5,162,1,76, 
197,192,32,24,193,208,3,2033 

DATA 76,148,205,141,187,207,32,24, 
193,208,3,76,148,286,141,188,2184 
DATA 207,32,24,193,208,3,76,148,206, 
141,189,2087,32,15,193,2088,2082 

DATNn 8,162,1,142,190,207,76,193,285, 
201,253,208,8,162,2,142,1902 

DATA 190,207,76,36,205,281 ,48,288,27, 
174,197,207,224 ,74,2088,15,2279 

DATA 174,188,207,284,77,208,8,162,12, 
142,190,207,76,36,203,162,2278 

DATA 128,142,198,207,173,198,207,288, 
3,206,182,2087,32,121,193,206 ,2593 
DATA 182,207 ,32,15,193,288,18,174, 
190,207,208,5,162,9,142,198,2134 

DATA 207,201,41,208,34,174,199,207, 
B24,12,240,77,44,190,287,16,2272 

DATA 72,32,19,193,201,44,2088,65,32, 
15,193,281,893,208,58,169, 1795 

DATA 8,141,190,287,76,153,285,201,44, 
2098,46,32,153,1933,201,89,2089 

DATA 288,8,169,11,141,198,207,78,153, 
205,281,88,208,27,32,13,1939 

DATA 193,208,8,169,19,141,198,207,76, 
153,205,281,41,208,10,44 ,2064 

DATA 199,207,16,5,1693,7,141,198,287, 
1732,190,207,41,127,141,190,2201 

DATA 287,173,1908,207,201,9,208,708, 
173,187,207,201,66,208,63,173,2843 
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DATA 1893,207,281,73,248,56,1869,6,141, 
159,207 ,234 ‚234 ‚234 ‚234 ‚234 ‚2848 
DATA 165,92,24,103,2,133,94,165,93, 
185,0,133,95,173,183,2087,1769 

DATA S6,229,94,141,183,207,170,173, 
184 ,207,229,95,224,129,105,0,2425 
DATA 234 ,234,240,5,189,8,141,198,287, 
169,8,141,194 ,207,173,189,2478 

DATA 287,208,17,173,198,207,281,9,48, 
18,201,12,16,6,36,233,1734 

DATA 6,141,190,207,173,187,2087,2081, 
42,240 ,4 ,201,934 ,208,5,169,2275 

DATA 8,141,190,207,162,77,202,48,77, 
173,197 ,207,221,30 ,200 ‚2088 ,2358 

DATA 245,173,189,297,221,127,200,208, 
@237,173,199,207 ‚221,284 ,200,,208,3208 
DATA 229,138,191,191,207,160,9,248,3, 
208,2498,22,173,191,207,217,2559 

DATA 25,201 ,208,243,192,32,37,2082, 
174,186 ,207 ,2085, 198,207 ‚248,27 ,,2338 
DATA 288,231,173,190,207,201,3,48,13, 
281,6,18,9,24,105,86,1641 

DATA 141,130,207,76,208,206,169,8,141, 
190,207,192,1906,207,173,198,2445 
DATA 207,240,33,170,202,169,25,202, 
178,173,186,207,1680,8,145,92,2481 
DATA 224,1,248,16,173,183,207,208, 
145,92 ,224 ,2,248,6, 173,184 ,2310 

DATA 207,208,143,92,198,214,32,19, 
203,169,13,32,168,192,169,62,2115 
DATA 32,168,192,169,68,32,168,1982, 
169,36,32,168,192,1653,93,32,1908 
DATA $9,193,169,92,932,59,193,169,38, 
32,168,192,169,59,32,168,1848 

DATA 192,169,32,32,168,192,169,211, 
201,39,48,245,198 ,214,,182,7,2275 
DATA 169,29,157,119,2,202,16,258,169, 
8,133,198,98,32,121,193,1094 

DATA 173,183,207,133,92,173,194,287, 
133,33,286, 182 ,207,32,15,193,2413 
DATA 201,44,248,5,162,1,76,187,198, 
s32,121,193,173,103,287,141,2158 

DATA 1952,207,173,184,287,141,193,207, 
206,192,207,32,15,193,281,44 ,2384 
DATA 208,226,32,121,193,173,183,8207, 
133,94,173,184,207,133,99,185,2527 
DATA 934,56 ,229,92,165,95,229,93,176, 
32,160,8,177,92,145,99,1929 

DATA 230,32,208,2,2398,93,238,94,208, 
2,239,95,169,92,56 ,237 ‚2284 

DATA 192,287,165,93,237,193,207,144, 
225,96,173,192,207,24,229,92,2676 
DATA 123,2,173,193,287,229,933,72,24, 
165,2,101,39,133,94,104,1819 

DATA 101,95,133,95,173,192,297,166, 
s32,133,92,192,192,207,173,193,2386 
DATA 207,166,93,133,93,142,193,297, 
165,92,56,233,1,133,92,185,2171 

DATA 93,233,9,133,93,169,8,177,92, 
145,94,169,92,56,233,1,1767 

DATA 133,92,176,2,198,93,165,94,56, 
233,1,133,94,1768,2,1998,1846 

OnTA 95,165,92,56 ,237,192,2987,165,93, 
e37,133,207,176,215,96,255,2681 
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.iInpt *'startadresse*? ',start jep comm 
.offs Sc000 - start pla 
.= start rts ;16-Bit-Zahl aus 
status=sS0 jsr print Error ausgeben iPuffer holen und 
sa "sb9 ‚byte %0d,'?,320,800 tin numl/numh ab- 
-sba txa legen 
=30277 asia 
tax 
Ida errm,x 
jzr chout 
screen=sdO21 Ida errn+i,x 
gchar "sf15b jsr chout 
sectik=-stf96 jsr print iHex-Zahl 
iecin =stfaS ‚text " error 
‚byte 200 
jmp conn 
„text "cncrovio Isr 
sta s02 iText ausgeben Jsr 
pla bei 
sta #50 as! 
pla rol 
sta #51 bes 
tya asl 
"stfoil pha rol 
"stf0o7 idy #00 bes 
Ida #300 iRegister setzen jsr iner as 
sta ac Ida (#5e),y rol 
sta yr beq bes 
sta xr ) isr as 
sta pc bne rol 
sta pe+i jer bes gnZ 
sta $5c pla ora num] 
“sta s5d tay sta numi 
Idx #18 Ida jap hei 
stx sp Inp Idx s02 
php ine rts 
pla bre stx #02 iBinaer-Zahl 
sta ps ine Ida #800 
jsr mess iStartmeldung rts sta numl 
Ida #<break iBreak setzen Isr get Zeichen aus Puffer sta numh 
sta brkv enp #320 ;iesen <> Space jsr get 
Ida #>break beq eget Jar hex 
sta brkvei bne get2 bmi bi2 
Ida #08 ine epoin +Zeichen aus Puffer as numl 
sta device stx 802 ;lesen rol nuah 
Id« sp idx epoin bes gn2 
tus Ida #0200,x ora numl 
jsr prapt Prompt drucken Iidx #02 sta numl 
Idx #800 Eingabe von Bild- pha 1 Jap bil 
jar gchar jschirm in Puffer pla ) Idx #02 
sta 80200, x rts rtis 
in« jär print iPrompt drucken Idx #602 ;OV-Error 
emp ‚byte $0d,'>,400 jnp error 
bne rts enp 83a sAScil > hex 
Ida pha il Byte In hex aus- bai hexi 
sta Ida ##20 ben mit ® cap #sal 
ida Test auf leere jsr chout bmi hexz 
sta Zeile Ida ı*s sec 
Jar jisr chout sbc #807 
beq pia cap 1930 
emp iTest auf Prompt sta idto. ohne $ bni hex2 
beq isr cap #940 
ldx tBefehlzsauswertung isr bp! hexz 
enp lsr and #80? 
beaq isr rts 
dex jsr asc Ida str 
bpl jsr chout rt 
inx Ida #02 Ida #806 iStartmeldung drucken 
inp ICH-Eroor and #%0f sta border 
txa iBetehlsadresse jsr asc sta screen 
asl ihoalen isr chout j3sr print 
tax rts ‚byte 893, 492,800 
jsr ora #430 iNibble > AScıi jsr print 
jap conn cnp #43 “byte #0e,s08,80d 
Ida conmari,x:iBefehl ausfuehren bee asel „text "LINEASS-64 written 1985 by 
pha elc “text " Klaus Burkert 
Ida conmma,x adc #407 | .byte 90d 
pha rts ‚text " irgq pe a 
rts sta #02 ı1 Byte binser aus- ‚text " s nv-bdize 
‚text "übedefghimgrstvx" Ida #820 sgeben mit % ‚byte #0d 
«word das-1,bin-1,chr-i,dass-i jsr chout 1 „text ">ri 
“word exec-i1,fill-i1,g0o-1,hunt-1 .x “byte 00 
»word load-i1,mem-1,quit-1,reg-i1 chout Ida ##20 sIRQ-Vektor drucken 
„word save-i,tran-I,veri-I,oxit-1 Idx #308 3sr chout 
jsr bsout Zeichen ausgeben 00 Ida irqvri 
pha s02 jsr houti 
jsr stkey rol a Ida irgv 
bre st2 jsr asc jsr houti 
jur stkey isr chout Ida 4420 ;PC drucken 
beq sti dex jer chout 
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N Super-Tool 


| Ida pc+1 Ida numh !break pla iYR holen 
| jsr houti beq fill2 tay 
Ida pc Idx #802 ı0V-Error pla ;XR holen 
jsr houti jap error tax 
Ida ac iAkku drucken silı2 Idy #800 x pla iAC holen 
3sr hout Ida numl sta ac iund abspeichern 
ida yr ;Y drucken sta (#850),y ;Fili sty yr 
3sr hout inc #5c stx xr 
ida xr iX drucken bone fill pla ıPS holen 
j3sr hout ine $5d sta ps sund speichern 
Ida sp iStackpointer drucken |fill3 Ida #5c sakt. Adr. =* Endadr.? eld 
3sr hout enp %5e eli 
Ida ps ;Statusreg. drucken Ida 954 pla ıPC holen und 
jsr bout sbe 85f sec ispeichern 
rts bee fill sbe 1802 
exit Ida #837 iBASIC- und KERNAL- rts sta pc 
sta 801 ;ROM ein nop pla 
jnp #2474 Basic Warmstart . \ nop sbc #800 
quit jmp (#fffc) ;Software-Reset hunt jar gadr Adressen holen sta pc»i1 
reg jsr oget dec epoin ts« SP speichern 
bne regi iwenn nur r „dann jsr eget stx Sp 
jap messi sEinsprungmeldung cap #', ;Test auf Komna jsr messi iRegister anzeigen 
emp #'t wenn ri „dann Ein- beg hunti jap comn 
beq regi igabe der Register Idx #801 |dos jsr eget ‚Status? 
reger idx #801 isonst CR-Error jap error beq stat 
jap error hunti jsr gnum iSuch-Byte emp #'$ }Directory? 
regi jsr gnum iIRQ-Vektor Ida numh beq dir 
sei beq hunt2 cmp #'# iGeraetenummer? 
Ida numh Idx #802 beq dev 
sta irqv+i jmp error Idx epoin iBefehl senden 
Ida numl hunt2 Idy 4800 Idy ns02 
sta irgqv Ida numi dosi jsr get 
eli cap (450),y bne dost 
jsr gnum iPC | bne hunt3 stx #02 
Ida numi Ida #80d igefundene Adressen Ida epoin 
sta pc \ jar chout iausgeben sec 
Ida numh Ida 54 be #02 
sta pc+l \ jsr hout jsr setnan 
jsr gnum iAkku | Ida #5c Ida #71 
Ida numh j3sr houti Idx device 
bne reger hunt3 inc s5e idy #80 
Ida num! \ bne hunta jsr setpar 
sta ac \ ine #5d jJsr open 
jsr gnum iY-Register 'hunt4 Ida #5c iakt., Adr. = Endadr.? jsr clall 
Ida numh 1 cap #5e rts 
bne reger | Ida #5d dev jsr gnum iGeraetenunner 
Ida numl sbe #5f Ida numh jaendern 
sta yr I bec hunt2 bne dever 
jsr gnunm iX-Register \ rts Ida num! 
Ida numh nop and #811110110 
bne reger \ nop bne dever 
ida numl go jsr znum ‚Adresse holen Ida nuni 
sta xr 1 Ida ps Register belogen sta device 
jisr gnun IStackpointer | pha rts 
Ida numh | pip dever Idx #801 
bre reger ldx =p jap error 
Ida numl txs zstat Ida #80d Status auslesen 
sta sp Id« xr jsr chout 
jisr gnum 1Statusregister | Idy yr Ida device 
Ida numh Ida ac sta ga 
bne reger gol pha 1 jer talk 
Ida numl Ida numl Adresse nach PC Ida #46f 
“ta ps sta pc ikopleren sta sa 
rts Ida numh isr sectik 
gadr jer gnun ıStartadresse sta perl stati jsr lecin 
ida numl pla jser chout 
sta #5c jap ipc} tausfuehren emp #804 
| ida numh exec pla bre zstati 
sta #5d pla jsr untik 
des epoln jsr gnum iAdresse holen ris 
jsr eget Test auf Konna Ida ps {Register belegen dir Ida ##0d Directory anzeigen 
cap ®', pha j3Ssr chout 
beq gad pip Idx epoin 
Idx #801 | Idx sp Idy #802 
jmp error tus dirO jsr get 
sad jer gnum tEndadresseri Idx xr dbne diro 
Ida numl Idy yr stx #02 
sta 95e Ida ac Ida epoin 
Ida nunh jsr goi sausfuehren sec 
sta #51 sta ac iRegister retten I sbe #02 
rts sty yr jsr setnam 
ill jsr gadr iAdressen holen stx xr Ida n87f 
dec epoin tsx Idx device 
jsr eget Test auf Konna stx sp Idy #460 
enp #', php jsr setpar 
beqg fill pla jJsr open 
Idw #801 iCR-Error sta ps Ida ga 
jmp error jer messi iRegister anzeigen jsr talk 
fıllı jsr gnum ıFill-Byte jap comm Ida sa 


Spezial | 
al 24 um WIRLD ZU 


dirt 


dir3 


dir2 


dira 


getp 


getpi 


geter 


getp2 


getp3 


getps 


load 


veri 


save 


jsr 
Ida 
sta 
idy 
sty 
jsr 
sta 
Idy 
bne 
jsr 
Idy 
bne 
Idy 
dey 
bne 
Idx 
jJsr 
Ida 
jer 
jsr 
id« 
bne 
tax 
beg 
jJsr 
jap 
Ida 
jsr 
idy 
bne 
Ida 
sta 
Ida 
Idx 
idy 
isr 
Ida 
Id 
idy 
jsr 
jsr 
jsr 
rts 
jisr 
beq 
enp 
bne 
Idy 
idx 
inx 
sta 
jer 
beaq 
emp 
bne 
Ida 
sec 
sbe 
jsr 
jsr 
enp 
beq 
Idx 
jmp 
jJer 
Ida 
beq 
Idu 
Jap 
Ida 
enp 
bes 
kax 
Idy 
Ida 
jsr 
rts 
jisr 
Ida 
jsr 
Imp 
jsr 
Ida 
jsr 
Jap 
jisr 
dec 
jJsr 
emp 


sectik 
"300 
status 
"s03 
s5e 
iecin 
s5f 
status 
dira 
iecin 
status 
dirä 
se 


diri 
51 
sbdcd 
"20 
chout 
lecin 
status 
dirä 


dir2 
chout 
dir3 
.0d 
chout 
"02 
diri 
"'i 
s5e 
“sol 
„50 
#s00 
setnan 
nie 
device 
“sof 
setpar 
open 
clall 


eget 
geter 
a" 
getp 
“202 
epoln 


so2 
eget 
geter 
sr. 
getpi 
epoin 


s02 
setnan 
eget 
"', 
getp2 
“so 
error 
gnun 
numh 
getpä 
”s02 
error 
num 
"20 
getp3 


»s0i 
»7f 
setpar 


getp 
00 
ceload 
io 
getp 
.soı 
eload 
io 
gatp 
epoin 
oget 
 R 


Super-Tool 


savei 
io 
101 
mon 
men.i 
zen.2 
\mener 
mout 
iFilenamen holen und] 
isetzen | 
| 
mouti 
Test auf Komma 
iGerasetenummer holen 
sund Fileparaneter 
isetzen mout2 
Parameter setzen 
Load 
) 
;Parameter setzen 
ıVerity 
Parameter setzen 
;Test auf Komma |menin 


beq 
idx 
jap 
Ida 
jsr 
jsr 
Ida 
Idx 
Idy 
jar 
bes 
Ida 
and 
bne 
rts 
Idx 
Imp 
jisr 
beq 
dec 
jer 
Ida 
sta 
Ida 
sta 
dec 
jsr 
brıe 
Ida 
ele 
ade 
sta 
Ida 
ade 
sta 
jnp 
cap 
beq 
enp 
beq 
Idx 
Jnp 
dec 
jer 
cap 
bne 
jer 
Ida 
sta 
Ida 
sta 
Ida 
jsr 
Ida 
jsr 
Ida 
jsr 
Ida 
Jsr 
Ida 
jisr 
Ida 
jsr 
Ida 
jsr 
idy 
Ida 
jsr 
Ida 
jsr 
iny 
<py 
bmi 
Ida 
ele 
ade 
sta 
Ida 
adc 
sta 
Ida 
sec 
sbco 
Ida 
sbc 
bec 
rts 
jsr 
ida 


Br DMELSMISTERWIRLD. FO 


savel 
..oi 
error 
“s0d 
chout 
gadr 
+50 
Se 
51 
csave 
iol 
status 
»xo0l11llı 
iol 


iStart- und Endadr, 
‚setzen 


;Save 


03 
error 
eget 
nen.i 
epoin 
num 
num! 
s5cC 
nush 
s5d 
epoin 
eget 
nen.2 
50 


iStartadresse holen 
sund setzen 


”.oı 


s5e 


Eingabe? 


Ausgabe? 


;Test auf Komma 


iEndadresse holen 
und setzen 


iPrompt und Adresse 
sausgeben 


sieinzeine Bytes aus- 


igeben 


inaechste Zeile 


schon Ende? 


einzelne Bytes holen 


mini 


ain2 


bin 


bin.i 


bin.2 


bnout 


bnti 


bnt2 


binin 


binit 


bini2 


beq 
Id 
jap 
Ida 
Idy 
sta 
inc 
bre 
inc 
dec 
jsr 
php 
dec 
pipe 
bne 
rts 
isr 
deq 
dec 
jsr 
Ida 
sta 
Ida 
sta 
des 
jar 
bne 
Ida 
eleo 
ade 
sta 
ida 
ade 
sta 
jep 
emp 
beq 
cmp 
beg 
Idx 
Jap 
jer 
Ida 
sta 
Ida 
sta 
Ida 
jar 
Ida 
isr 
Ida 
sr 
Ida 
3sr 
ida 
jsr 
Ida 
Isr 
ida 
jJsr 
idy 
ida 
jsr 
inc 
bne 
ine 
Ida 
sec 
sbe 
Ida 
sbe 
bee 
rts 
jsr 
ida 
beg 
Idx 
jImp 
Ida 
Idy 
sta 
ins 
bne 
ine 
dec 
jsr 
php 
dec 
plp 


sund In Speicher 
ischreiben 
inaechste Adresse 


;iEnde? 


IStartadresse holen 
und setzen 


Eingabe? 


jAusgabe? 


iEndadresse holen 
iund setzen 


Prompt und Adresse 
jausgeben 


iByte holen 


inaechstes Byte 


Ende? 


Byte holen 


sund in Speicher 
;schreiben 
snaechstes Byte 
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| 
) 


ech 


binin 


eget 
chr.i 
epoin 
anum 
numi 
45c 
numh 
11:7] 
epoin 
egei 
chr.2 
#50 


“s0i 
s5e 
s5d 
“00 
51 
chroi 
.’ı 
chrin 
ON 
crout 
“+01 
error 
gnum 
numl 
s5e 
nuan 


chout 
“00 
(850),y 
s02 


#x01100000 


chro3 
"+20 
s0o2 
02 
chout 


“s10 
chro2 
#50 


«s10 
50 
454 
*s00 
54 
50 


5 
54 
57 
chroi 


“00 
get 
chri2 
s02 
#s20 
cehrii 
(#50), 


Ende? 


ıStartadresse holen |mnem2 
jund setzen 


‚Eingabe? 


iAusgabe? 


IEndadresse holen 
hund setzen 


Prompt und Adresse 
ausgeben 


teinzelne Zeichen 
iholen 


jund ausgeben 


inaechste Zeile 


iZeichen holen 


Ende? 


#x01100000 


chrii 
ts50),y 
s02 

s02 
(#5c),y 
50 
chrin 
54 
cehrin 


sund in Speicher 
ischreiben 
tnaechstes Byte 
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‚byte 
“byte 
‚byte 
‚byte 
‚byte 
‚byte 
«byte 
‚byte 
“byte 
«byte 
“byte 
‚byte 
‚byte 
‚byte 
“byte 
‚byte 
‚byte 
‚byte 
“byte 
‚byte 
‚byte 
+byte 
‚byte 
‚byte 
“byte 
“byte 
.byte 
„byte 
‚byte 
.byte 
‚byte 
.byte 
‚byte 
‚byte 
‚byte 
‚byte 
“byte 
«byte 
‚byte 
‚byte 
‚byte 
.byte 
“byte 
‚byte 
‚byte 
sta 
emp 


Ida 
rts 
cap 


Ida 


ope 
LE 1:7=3 
bre a0 

#800 


"aasaaaaaabbbbbbb"ierste 
"bbbeeccocceeddddel"iätelle 
"{1fJJ11111nopppp"ider 
"rrrrrrssesssssss";Mneno- 
"assstttittt?7er” inics 
"dännrssssxccelanp"izweite 
"ruviliimppceesoc"iätelle 
"nnnasadddsorhhil"ider 
"loorttaabeeelrst”";Nnemo- 
"ttxyaasıny?et” inics 
"ecedrirtxacsgtiel"idritte 
"kescedivpıycoxyrs”"iStelle 
"eoxyprxaxyrpaapap"ider 
"alraishxccdioeha”iMnemo- 
"xyhhxıyxasa?»t" inilos 
#10, %2b,#4c,$33c 1Code 
#4b,#2b,#04,#3c ;tfuer 
»2d,92b, 804,801 ;Befehl 
sab,#2b, 904, $3c 
s01f,92b, $äac, $3c 
4b, #2b, 304, $3c 
13,326, $4b, #3c 
*4b,#2b, 404, #3c 

#24,8502, 840,830 

00,002, 931,30 

21,902, 331,901 

206, 302,331,930 
+0d, 602, #4c, #30 
s“b,#802,931,930 
39,902, #4b, 30 

#46, 302,931, 930 
s»34,#1o,84c,#3d 
*ab,#1e,929,93d 


s315,$1o,$äb, s3d 
sub, $1e,929,#3d 
935,000, 940, #33 
sAb, 300, 432,533 
s20e,900, 32,803 
»23,900, #32, #33 
#12,200, 340, 833 
v“b,200, 332,933 
#36, 300, #4b, #33 
#4b,300, 832,933 
94b,53f,64b, 337 
s41,931,940, 937 
#1d,%4b, 347,408 
sar,931f,#40,%37 
09, 93f,%40,#36 
»41,237,940,937 
s»49,#31, #948, s3e 
3, 237,942, 36 
28,926, 327,925 
»28,926,927,925 
445,926, 444, 44a 
228,326, 327,#25 
02,926, 840,825 
*208,926, 927,825 
#16,326, 3456, #06 
»26,426,8327,#25 
#19,917,#&b,sla 
*19,917,81b,8ia 
v»22,817,81c,807 
s19,917,s1b,sia 
08,917, s4a0o,$i1a 
9»4b,317,$ib,sia 
914,917, 84b,si1a 
#4b,917,81b, sim 
sı8, 938, Hab, s1F 
18,238, 320, #1f 
+21,238, #22, 938 
18,938, 920, s1f 
s0b, 438, $4c, str 
sab, #38, »20,sif 
*»32,038, san, sıf 
“ab, 438,920, #1f 
201,902, 902, #02 
s02, 902,902, 302 
03,803, #03, #03 


iAnzahl 
ıder Bytes 


jungsart 


aus Opcode 


sermitteln 


»89 
bne al 
03 


iAdressier- 


rts 
and 
tax 
Ida 
emp 
bpl 
emp 
bpl 
Ida 
jap 
Ida 
Spx 
beq 
epx 
beq 
rts 
Ida 
lsr 
Isr 
lsr 
lsr 
Isr 
tax 
rts 
jsr 
Ida ad 
rts 
jsr as 
Ida ad 
rtis 
‚byte 
‚byte 
‚byte 
.byts 
‚byte 
‚byte 
‚byte 
‚byte 
‚byte 
‚byte 
‚byte 
‚byte 
‚byte 
‚byte 
‚byte 
“byte 
‚byte 
«byte 
‚byte 
‚byte 
jsr eg 
beq da 
dec 
jsr 
Ida nu 
esta #5 
ida nu 
sta 85 
dec ep 
jsr eg 
bne da 
Ida #2 
sta sf 
jsr di 
deo $#f 
bne 
rts 
emp 
bne 
JImp 
enp 
beag 
Id 
jmp 
jJer 
Ida 
sta 
Ida 
sta 
jsr 
Ida 
sec 
sbe 
Ida 
sbo 
bee 
rts 
ida 
3Isr 
Ida 


r2,x 


r3,.x 


#00, 807,#00, #07 
»03, 903,903, 303 
01,302, 801,902 
»09,#09,909, 109 
+06, #08, #01,908 
03,904,904,90&4 
s»01,90b,301,#0b 
+09, 30a, 0a, #0a 
+00, 507,600, #07 
03, 903,203, #03 
201,302,801,802 
s09, #09, 309,909 
06,808, 901,808 
04,404, 305,905 
+01,$50b,501,90b 
“On, s0a,80b, 0b 
%01,209, 301,801 
03,202, 802,02 
301,801,901,801 
s03, 902, 903,903 
er 

s.i 


epoin 
gnun 


Tabelle 
ttuer 
‚Adressier- 
iungsarten 


;Sonder- 


stallıi 


’Sonder- 
‚fall 2 
Sonder- 
sfalı 3 


‚Startadresse holen 


ni sund setzen 


c 
ah 
d 
oln 
et 
s.2 
3 

t 
ssi 
t 


Eingabe? 


Ausgabe? 


iEndadresse holen 
iund setzen 


1 Zeile drucken 


Ende? 


iPrompt und Adresse 


jausgeben 


jar 
Ida 
jsr 
Ida 
Jsr 
Ida 
jsr 
ida 
jsr 
Ida 
Jsr 
Idy 
Ida 
jer 
Ida 
jsr 
tax 
dex 
Ida 
tax 
spx 
beq 
iny 
Ida 
)sr 
opx 
beq 
iny 
Ida 
jsr 
ida 
jisr 
Ida 
| cap 
bei 
Ida 
jsr 
idy 
Ida 
tax 
Ida 
tax 
Ida 
jsr 
ida 
jsr 
Ida 
jsr 
Ida 
jsr 
Ida 
isr 
tax 
epx 
bne 
jap 
epx 
brne 
Ida 
jsr 
epx 
beq 
epx 
beq 
epx 
bne 
Ida 
jsr 
Ida 
jsr 
cpx 
bi 
jap 
cpx 
beq 
Idy 
Ida 
j3sr 
epx 
bpi 
Imp 
epx 
bne 
Ida 
jsr 
Ida 
jsr 
jap 
epx 
bne 


 diss2 


disi 


diss3 


dissä 


dissS 


dis2 


dis3 


diss6 


shout 


“s00 
1850),y 
hout 
(150),y 
adr 


lang, x 


"so 
diss2 


(s50),y 
hout 
“02 
diss2 


1s50),y 
hout 


mnenä,x 


mneni,x 
chout 
mnen2,x 
chout 
mnen3,x 
chout 
»s20 
chout 
opc 

adr 


“s0oi 
disi 
dise 
“02 
diss3 
.'. 
chout 
“07 
dissa 
08 
dissä 
*s0c 
dissS 
“'c 
chout 
.';. 
chout 
03 
dis2 
disi2 
*s08 
diss9 
“sol 
(850),y 
houtl 
04 


iOpceode holen 
und drucken 


iAdressierungsart 
iholen 


iBetehlsiaenge holen 


| 


| 
auf Spalte 21 posi-) 
stionieren 


;Mnemonic drucken 


;Operanden bestinnen 
sund ausgeben 
ilmmediate? 


iindiziert indirekt? 
tindirekt indiziert? 


absolut indirekt? 


absolut? 


srelativ? 


iimpliziert? 


sO-page x-indiziert? 


;O-page y-indiziert? 


diss? 


dissBd 


dissd 


disıo 


disil 


disi2 


disia 


cisel 


Ida 
jsr 
Ida 
jsr 
jep 
cpx 
bne 
Ida 
Jsr 
Ida 
jsr 
Ida 
jar 
jmp 
Ida 
Jjsr 
Ida 
Jar 
Ida 
jsr 
jap 
Ida 
elc 
ade 
sta 
Ida 
ade 
sta 
Idy 
ida 
bpl 
Ida 
“ta 
Ida 
bmi 
Ida 
sta 
Ida 
elc 
ade 
sta 
Ida 
ade 
sta 
jsr 
Ida 
jsr 
imp 
Idy 
Ida 
Jar 
Idy 
Ida 
Jsr 
epx 
beg 
Spx 
bne 
Ida 
jsr 
Ida 
jsr 
Jmp 
Spx 
bne 
Ida 
isr 
Ida 
jsr 
jap 
Ida 
jar 
Idy 
Ida 
jsr 
tax 
dex 
Ida 
elso 
ade 
sta 
Ida 
ade 
sta 
Ida 
jsr 
Ida 
cap 
bmi 
rets 
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(350),y 
adr 


lang,x 


#50 
#50 
54 
*s00 
»5d 
#+s20 
chout 
4.3 
”s27 
disei 


indiziert indirekt? 


indirekt indiziert 


}0perand fuer 
irelative Adressier- 
iung bestimmen 


| 


+186-Bit Adresse aus- 
igeben 


iabsolut? 


in-indiziert? 


iyrindiziert? 


sabsolut indirekt? 
inaechste Zeile 


sAdresslerungsart 


iBefehlsiaenge 


iRestzeile loeschen 


ass! 


ass2 


assJ3 


ass“ 


assS 


ass6 


asa? 


assiö 


assii 


assiı2 


assiı3 


Ida 
sta 
jsr 
beq 
cmp 
bne 
beq 
Id 
jap 
jtr 
bne 
Inp 
sta 
jsr 
bne 
jap 
sta 
isr 
bne 
imp 
sta 
jsr 
bne 
Idx 
stx 
JInp 
cap 
brna 
Ida 
st“ 
jimp 
cap 
bne 
Idx 
epx 
bne 
Idx 
spx 
bne 
Idx 
sta 
imp 
Idx 
six 
Ida 
bne 
dec 
jsr 
dec 
jsr 
bne 
Idx 
bne 
Iidx« 
stx 
emp 
bre 
Idx 
cpx 
beq 
bit 
bpi 
jsr 
cap 
bne 
jsr 
cap 
bre 
Ida 
sta 
jap 
cap 
bne 
jsr 
emp 
bne 
Ida 
„ta 
Imp 
enp 
bne 
jsr 
bne 
Ida 
sta 
jImp 
camp 
bne 
bit 
bpi 


inichtexistenten Be- 
itehl voraussetzen 
inach Mnemonic-Anfang 
tsuchen 


ICR-Error 


iMnenonic In rmnel- 
inne3 ablegen 


iAdressierungsart und 
;Operand holen 
impliziert 


iimmediate 


sindirekt 


‚absolut indirekt? 


tabsolut indirekt 


sindirekt-flag setzen 


Adresse holen 


tabsolut 


iindirekt indiziert 


iy-indiziert 


Iix-indiziert 
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Super-Tool 


Ida #807? kindiziert indirekt cap #803 smoeglich mit abso- sbe 85c 
sta mne4 bmi ass22 slut versuchen Ida #51 
asse Ida mne4 enp #606 sbe #54 
and ##7f bpl ass22 bcos down 
sta mne4 cio upo Idy #900 ;Verschieben 
Ida mneä ade #806 Ida (#5c),y 
cmp 1309 absolut? sta mne4 sta (#5e),y 
bne assi6 jap assıS inc #5c 
ida znei ass22 Ida #800 bne upi 
eanp #'b iBranch-Befehl? sta aneä ine #5d inaechstes Byte 
bne assi6 ass23 stx opc }Opcode sichern upi inc s5e 
Ida nne2 Ida ane&4 IAdressierungsart bne up2 
emp #'i beq assel ine s5f 
beq assi6 tax up2 Ida $5c 
Ida #208 relativ dex seo ischon fertig ? 
sta nneä Ida lang,x iBefelsiaenge holen sbce endl 
nop tax ida #5d 
nop ) Ida opc Opcode holen sbe endh 
nop a Idy #800 bee upO 
nop sta (#5c0),y jund speichern rts 
nop cpx A801 down Ida endi ;Adressen fuer 
ida #50 beq assei impliziert? elc 
elc Ida numl ilow-Byte holen I sbe #50 
adc #802 iny sta #02 ‚Verschiebung um- 
sta #5e sta (%50),y jund speichern ida endh 
Ida #5d cpx #902 i2-Byte-Befehl? sba 85d rechnen 
ade #800 beq assei | pha 
sta s5f Ids numh ihigh-5yte holen cic 
ida numi iny Ida s02 
ses sta (#5c0),y ıund speichern ade #5e 
sbo #5e assei dec %dö it Zeile hoch sta 95e 
sta numl jsr dissi Befehl ausgeben pla 
tax Ida #104 ineue Zeile (or) ade s5f 
Ida numh jsr chout sta s5f 
sbo #51 Ida #'> iPronpt Ida endi 
cpx #880 jsr chout Idx 850 
ade #800 ida #'d ;Befen! sta #5o 
nop jsr chout stx endl 
nop ida #'# ıZahlsystem Ida endh 
beq assı5 jsr chout Idx #5d 
Ida #800 Ida #54 shigh-Byte der aktu- sta 154 
sta mneä 3sr houti stellen Adresse stx endh 
ass15 Ida #%00 Ida #50 slow-Byte der aktu- Ida #56 
sta numh jsr houtt tellen Adresse sec 
ass16 Ida numh iAdroesse < #0100? Ida #': Eingabe-Zeichen sbe #801 
bne assı7 Jar chout sta #5c 
Ida anea Ida #'; IMnemonic-Zeichen Ida 15d 
enp #809 iabsolut oder j3sr chout sbe #800 
bmi assı17 sabzolut indiziert? ans24 Ida 1820 iZeile bis Position sta 354 
enp P80c jsr chout 39 mit Leerzeichen |dowO Idy #300 iVerschleben 
bpl assı7 Ida #43 ifuelen Ida (#50),y 
sec cmp #327 sta (#5e),y 
sbc #806 +O-page oder O-page bni ass24 Ida %5c 
sta nnes indiziert dec #d6 i1 Zeile hoch sec 
ass17 Ida nnei Idx #807 ;Tastaturpuffer nit sbc #801 inaechsztes 
enp #'* iMehr-Byte NOP? Ida #s1d ;8 » Cursor-Rechts sta #50 
beq assi8ö asa25 sta tbuff,x ifuellen bes dowi 
emp #'} s"Aufhaenger"? dex dec #5d 
bne assio bpl asa225 dowi Ida 35e Byte 
assiö Ida #900 inicht beruecksichti- Ida #308 ;8 Tasten setzen sec 
sta mne&4 igen sta Sc6 sbe 1901 
assı9 Id« ##4d k0pcode suchen rts iEnde sta #5e 
as3s20 dex tran jsr gnum ;Startadresse alt bes dow2 
bmi 'ass22 schon alle probiert? Ida num deo #5t 
Ida mnei sta #50 dow2 Ida #5c ischon fertig ? 
enp mnemi,x ;i, Stelle richtig? Ida numh sec 
bre ass20 \ sta $5d sbe endl 
Ida mne2 dec epoin Ida 15d 
cap mnenm2,x ;2, Stelle richtig? jsr oget sbe endh 
bne ass20 emp ®*, ıKonna ? bos dowO 
Ids mne3 beq tral rts 
cap anem3,x ;3. Stelle richtig? tra0O Idx #801 sCcR-Error ac ...+,1 tAkku-Speicher 
bne ass20 jap error yr “me +1 ıY-Speicner 
txa trai jsr gnum tEndadresse alt xr u...1 }X-Speicher 
sta opt Ida numi sp „u o.1 15-Speicher 
Idy #00 ;Opeode fuer sta endl ps ...e.i ıP-Speicher 
beq asi Ida numh pc u...2 iPC-Speicher (1o/hi) 
as0O iny iBefehl suchen sta endh oepoin nme + tEingabepointer 
beq ass21 N dec epoin nuni u=n + | Argument low 
asi ida opt jsr eget nunh #=e + | ;Argument high 
emp mnemä,y iAdressierungsart cap #', iKomma ? device#=z» + | ıFloppynumner 
bne asO bne traO ope „ıu+ | ;Opcode 
tya iholen jar gnun iStartadrense neu mnei »zu + | si. Stelle Mnemonic 
jsr adr Ida num! mne2 #»» + | i2. Stelle Mnemonic 
ldx opc sta 15e mne3 "u + L +3. Stelle Nnemonic 
emp maneä tAdressierungsart Ida nunh mnes “um. + | jAdrensierungsart 
beq ass23 ielchtig? sta s5f opt ...+Y H0pcode-Test 
bne asO Ida #5e endl uzu + ‚Adresse fuer 
ass2! Ida mne4 sfalls O-page nicht seo endh «= + 1 iTransfer-Befehl 
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Zuverlässigkeit macht Schule 


maxell ensure 
ms Denn san 


ig Schul-Arbeiten zuverlässig vorbereiten und erledigen: Stunden- 
maxell & und Arbeitspläne auf einen Blick, Unterrichts-Inhalte mit direktem Zugriff. 
MDI x Da müssen auch die Datenträger Klasse sein. 


X Maxell-Datenträger bekommen die besten Zeugnisse - in jedem Fach. Und in 
Zuverlässigkeit immer eine Eins. Ihre Mitarbeit im Unterricht ist vorbildlich. 
L Maxell-Datenträger - die Zuverlässigen. 1 


Datenträger 
{PLZ 4 und 5) KOMP, Hennch-5 path”s traße 12-14, 4019 Monhem, Tel: 02173/52071/2 e 7 
(PLZ 6) ART 2000, Altstraße 6450 Hanau, Tel: 06181/24786-? + (PLZ ? und 8 
SYMELEC Datensysterne GmbH, ostiach 1577 3000 "München 2 Tel: 089 151793 die Zuverlässigen 


Fa NPISTERWEL.D. 2 


ERHEBEN STERHIR.D. 20H 


Spitzen-Grafik 


Der Commodore 64 ist ein Wider- 
spruch in sich: er hat ein schlech- 
tes Basic und ist doch der meist- 
verkaufte Heimcomputer, Er un- 
terstützt weder Grafik noch Musik 
und läßt doch Konzerte erklingen 
und Gemälde entstehen. Aber 


dieses Paradoxon ist auch seine- 


Stärke. Da er (fast) alles kann, 
aber wenig Mittel zur Verwirkli- 
chung seiner Fähigkeiten anbie- 
tet, sind der Phantasie und dem 
Geschick der Benutzer keine 
Grenzen gesetzt. RUN-Program- 
mierer Frank Riemenschneider 
hat sich diese Tatsache zunutze 
gemacht und eine Erweiterung 
geschrieben, die das magere Ba- 
sic um 50 neue Grafikbefehle be- 
reichert. Diese 50 Befehle lassen 
sich in sechs Gruppen einteilen: 

l) Befehle zur Programmierung 
der hochauflösenden Grafik 

(2 Grafikseiten mit je 320x200 
Grafikpunkten) 

2) Befehle zur Spriteprogrammie- 
rung 

3) Befehle zur Diskettenprogram- 
mierung 

4) Befehle zur Erstellung eines 
eigenen Zeichensatzes 

5) Befehle zur Programmierung 
der Blockgrafik (40x25 Zeichen) 

6) Allgemeine Programmierhilfen. 


Den bei weitem größten Anteil hat 
die Programmierung der hochauf- 
lösenden Grafik mit 2] Befehlen. 
Es stehen zwei Grafikseiten zur 
Verfügung. Das bedeutet, daß 
man gleichzeitig zwei unabhängi- 
ge Grafiken darstellen kann. Es ist 
aber auch möglich, beide Seiten 
zu verknüpfen, so daß sich eine 
Grafik über zwei Seiten erstrek- 
ken kann. Damit erhält man eine 
Auflösung von 320x400 bezie- 
hungsweise von 640x200 Punkten, 
was den Möglichkeiten von er- 
heblich größeren Computern ent- 
spricht. 

Hier die Befehle zur Programmie- 
rung der hochauflösenden Grafik: 
l) Einschalten der Grafik/Wahl 
des Grafikmodus 
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Spielefreaks wissen es 
schon lange: Der C64 
hat exzellente Grafik- 
möglichkeiten. Doch 


man braucht solide 


Programmierkenntnis- 


se, um sie zu nutzen. 
Mit den 50 neuen Grafik- 

befehlen kommt man 

der Perfektion einen 


Riesenschritt näher. 


Befehl: GMODE AS,BS 

AS: Angezeigte Grafikseite (1 
oder 2) 

BS: Bearbeitete Grafikseite (1 
oder 2) 

Durch einen unterschiedlichen 
Wert von AS und BS ist esmöglich, 
„unsichtbar" zu zeichnen. 

2) Ausschalten der Grafik 

Befehl: GMODE 0 & 
Es wird auf den Textschirm umge- 
schaltet und dieser dabei ge- 
löscht, 

3) Grafikfarbe setzen 

Befehl: GCOL Px16+H 

P: Punktfarbe 

H: Hintergrundfarbe 

Man kann für die beiden Grafik- 
seiten eine unterschiedliche Farb- 
kombination festlegen. 

4) Grafikfarbe ändern 

Befehl: PCOL Px16+H 

P: Punktfarbe 

H: Hintergrundfarbe 

Hiermit kann man während des 
Zeichnens die Farbkombination 
wechseln. 

5) Grafikseite löschen 

Befehl: GCLEAR 

Die mit GMODE angesprochene 
Grafikseite wird gelöscht. 


ohne Mühe 


6) Grafikpunkt setzen 

Befehl: SPLOT X,Y 

X: X-Koordinate (0—319) 

Y: Y-Koordinate (0—199) 

D) Grafikpunkt löschen 

Befehl: CPLOTX,Y 

X- und Y-Werte siehe unter 6). 

8) Linie ziehen 

Befehl: SLINE X1,Y1,X2,Y2 

X1/2: X-Koordinate des Start-/ 
Endpunktes (0—319) 

Y1/2: Y-Koordinate des Start-/ 
Endpunktes (0—199) 

9) Linie löschen 

Befehl: CLINE X1,Y1,X2,Y2 
X1,Y1,X2,Y2 siehe unter 8), 

10) Ausgefülltes Rechteck zeich- 
nen 

Befehl: SBLOC X1,Y1,X2,Y2 

X1/2: X-Koordinate der linken, 
oberen/rechten, unteren Ecke 
des Rechtecks (0—319) 

Y1/2: Y-Koordinate der linken, 
oberen/rechten, unteren Ecke 
des Rechtecks (0—199) 

Auf jeden Fall muß Y2 größer als 
Yl sein, da sonst eine Fehlermel- 
dung erzeugt wird. 

11) Ausgefülltes Rechteck löschen 
Befehl: CBLOC X1,Y1,X2,Y2 
X1,Y1,X2 und Y2 siehe unter 10). 
12) Rahmen zeichnen 

Befehl: SFRAME X1,Y1,X2,Y2 
X1,Yl,X2 und Y2siehe unter 10). 
13) Rahmen löschen 

Befehl: CFRAME X1,Y1,X2,Y2 
X1,Yl, X2 und Y2 siehe unter 10). 
14) Kreis oder Ellipse zeichnen 
Befehl: SCIR XM,YM.XR,YR, 
AW,EW 

XM: X-Koordinate des Mittelpunk- 
tes (0—319) 

YM: Y-Koordinate des Mittelpunk- 
tes (0—199) 

XR: Radius in X-Richtung (0—319) 
YR: Radius in Y-Richtung (0—199) 
AW: Anfangswinkel (0—2*Pi) 

EW: Endwinkel (0—2*Pi) 

Der Winkel „Null“ liegt dem klei- 
nen Zeiger einer Uhr entspre- 
chend, die drei Uhr anzeigt. 

Pi/2 liegt bei sechs Uhr, Pi bei 
neun Uhr und 3*Pi/2 bei zwölf 
Uhr. Ein Kreis wird gezeichnet, 
wenn XR und YR gleich groß sind. 


| 


15) Kreis oder Ellipse löschen 


Befehl! CCIR XM,YM,XR,YR, 
AW,EW 
XM,YM,XR,YR,AW und EW siehe 
unter 14) 


16) Text auf Grafikschirm schrei- 
ben 

Befehl: STEXT M,X,Y,"Text“ 

M: Zeichenmodus (0=Großschrift- 
modus, 1= Kleinschriftmodus) 

X: X-Koordinate des Textanfangs 
(0—319) 

Y: Y-Koordinate des Textanfangs 
(0—199) 

"Text"; Ausdruck, der geschrie- 
ben werden soll. Dabei kann es 
sich auch um eine Stringvariable 
handeln. 

Dieser Befehl ignoriert alle Steu- 
erzeichen bis auf Revers on und 
Revers off. Wird das Zeilenende 
erreicht, so wird in der nächsten 
Zeile weitergeschrieben. 

17) Text vom Grafikschirm 
löschen 

Befehl: CTEXT M,X,Y, "Text" 
M,X,Y und "Text" siehe unter 16). 
18) Grafikschirm invertieren 
Befehl: GINV 

19) Grafikschirm abspeichern 
Befehl: GSAVE "Filename", G 

G: Geräteadresse des Ausgabe- 
gerätes (1 =Kassette, 8=Floppy) 
*Filename*: Name, unter dem der 
Grafikbildschirm abgespeichert 
werden soll. Dabei kann es sich 
auch um eine Stringvariable han- 
deln. 

20) Grafikschirm laden 

Befehl: GLOAD"Filename”,G 

G und "Filename" siehe unter 19). 
21) Grafik ausdrucken 

Befehl: GHARD 

Druckt eine Hardcopy auf einem 
7-Nadeldrucker (z.B. MPS 801). 
Funktioniert aber auch auf Epson 
mit Interface etc. 

Die Spriteprogrammierung wird 
vom normalen Basic leider über- 
haupt nicht unterstützt. GRAFIK- 
BASIC vereinfacht den Einsatz 
von Sprites mit fünf neuen Befeh- 
len. 

l) Definition eines Sprites 

Befehl: SPRDEFN.B,F,P.A,X,Y 

N: Nummer des Sprites (0—7) 

B: Block, aus dem der Sprite seine 
Informationen holt (0—255) 

F: Farbe des Sprites (0—15) 

P: Priorität (0=Sprite vor, 1= Spri- 
te hinter Bildschirmzeichen) 


Ä: Art des Sprites (0=Einfarben- 
sprite 24x21 Punkte Auflösung, 
l=Multicolorsprite 12x2] Punkte 
Auflösung) 


X: Ausdehnung in X-Richtung 


(0=Normalgröße, 1= doppelte 
Größe) 
Y: Ausdehnung in Y-Richtung 
(0=Normalgröße, l=doppelte 
Größe) 


2) Einschalten eines Sprites 
Befehl: SPRINN 

N: Spritenummer (0—7) 

3) Sprite auf Bildschirm setzen 
Befehl: SPRSET N,X,Y 

N: Spritenummer (0—7) 


X: X-Koordinate des Sprites 
(0—350) 

Y: Y-Koordinate des Sprites 
(0—250) 

4) Sprite ausschalten 


Befehl: SPROFFN 
N: Spritenummer (0—7) 
5) Farbe für Multicolorsprite set- 
zen 
Befehl: SRPCOLFI,F2 
Fl: erste Farbe (0—15) 
F2: zweite Farbe (0—15) 
Ein Multicolorsprite kann drei Far- 
ben annehmen: Zwrei sind für alle 
Sprites gleich und werden mit 
SPRCOL festgelegt. Darüber hin- 
aus hat jedes Sprite eine individu- 
elle dritte Farbe, Diese wird mit 
SPRDEF festgelegt. 
Für die Daten, die das Aussehen 
der Sprites bestimmen, bieten 
sich die folgenden Blöcke an; 
ohne eigenen Zeichensatz gibt es 
keine Probleme, da die Blöcke 
32—63 ($0800 bis $OFFF) benutzt 
werden können. Bei einem neu 
definierten Zeichensatz wird es je- 
doch eng: Vor dem Basic-Start 
können nur die Blöcke 11 und 15 
genutzt werden. 
Sprites dargestellt werden, greift 
man am besten auf die höheren 
Blöcke wie 250,251 usw. zurück. In 
diesem Fall ist aber die Länge des 
Basic-Programms auf ca. 12 K be- 
grenzt, da die Spritedefinitionen 
sonst überschrieben würden. 
Für die Diskettenprogrammie- 
rung stellt GRAFIK-BASIC drei 
neue Befehle zur Verfügung. 
Auslesen und Anzeigen des 
ehlerkanals 
Befehl: ERROR 
Tritt keine Fehlermeldung auf, 
wird "0,OK,0,0" angezeigt. 


Bu, alas rer Std 2 


Sollen mehr. 


2) Befehl an Floppy senden 
Befehl: DISK "Anweisung" 

DISK "N:Floppy,0l“ zum Beispiel 
formatiert eine Diskette. 
(®) Directory einlesen und anzei- 
gen 

Befehl: DIR 

Ein eventuell im Speicher stehen- 
des BASIC-Programm wird nicht 
gelöscht. 

Der dritte Befehlsbereich befaßt 
sich mit der Programmierung ei- 
nes individuellen Zeichensatzes. 
Eine Stärke von Grafik-Basic liegt 
darin, daß mit dem TEXT-Befehl 
(siehe oben) außer dem normalen 
Zeichensatz auch selbstdefinierte 
Zeichen auf dem hochauflösenden 
Grafikschirm dargestellt werden 
können. Weiterhin ist ein deut- 
scher Zeichensatz in GRÄAFIK-BA- 
SIC bereits integriert, so daß die- 
ser mit einem Befehl sofort zur 
Verfügung steht, Hier nun die 
sechs neuen Befehle: 

l) Zeichensatz ins RAM kopieren 
Befehl: ZCOPY 

Durch diesen Befehl wird der Ori- 
ginal-Commodore Zeichensatz ins 
RAM von $800 bis $FFF kopiert. 
Dies ist notwendig, um Änderun- 
gen am Zeichensatz durchzufüh- 
ren. 

Ö) Deutschen Zeichensatz ins RAM 
kopieren 

Befehl: ZGER 

Durch diesen Befehl wird nicht 
der Original-Commodore Zei- 
chensatz, sondern der in GRAFIK- 
BASIC integrierte deutsche Zei- 
chensatz ins RAM gelegt. Tabelle" 


Taste 


Shift und 7 

+ 

Shift und * 
Klammeraffe 

Shift und Klammeraffe 


Shift und: 


Shift und ; 
/ 

Shiftund, 
Shift und. 


- [Ju GoGe+@n 


unter dem deutschen Zeichensatz 
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l führt die neubelegten Taste 
auf. - 
3) Zeichensatz abspeichern 
Befehl: ZSAVE“Filename",G 

G: Geräteadresse des Ausgabe- 
gerätes (1=Kassette, 8=Floppy) 
*Filename“: Name, unter dem der 
Zeichensatz abgespeichert wer- 
den soll. 

Mit diesem Befehl kann man einen 
neu definierten Zeichensatz ab- 
speichern. 

4) Zeichensatz laden 

Befehl: ZLOAD"Filename",G 


G und *Filename" siehe unter 3). 


Hiermit wird ein abgespeicherter 
Zeichensatz wieder eingeladen. 
Es ist auch möglich, Zeichensätze 
aus anderen Programmen zu ver- 
wenden, da sie automatisch an die 
ichtige Stelle geladen werden. 
Zeichensatz auf RAM schalten 
Befehl: ZIN 
Hiermit wird der von $800 bis 
$FFF liegende Zeichensatz akti- 
viert. Bevor dieser Befehl verwen- 
det werden kann, muß entweder 
mit ZCOPY oder ZGER ein Zei- 
chensatz in diesen Bereich kopiert 
oder ein Zeichensatz mit ZLOAD 
eladen werden. 
Zeichensatz auf ROM schalten 
efehl: ZOFF 
Hierdurch wird wieder der Origi- 
nal-Zeichensatz im ROM aktiviert. 
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Auch die Programmierung der 
Low-Resolution Grafik wird von 
GRAFIK-BASIC unterstützt. Acht 
Befehle erleichtern das Erstellen 
n Blockgrafiken. 
Bildschirm invertieren 
Befehl: LINV 
©) Einen bestimmten Bildschirm- 
bereich mit einem Zeichen füllen 
Befehl: LFILL 2,X1,Y1,X2,Y2 
Z: Bildschirmcode des Zeichens 
(0—255) 
X1/2: Zeile der linken, oberen/ 
rechten, unteren Ecke des Be- 
reichs (0—24) 
Y1/2: Spalte der linken, oberen/ 
rechten unteren Ecke des Be- 
reichs (0—39). 
Achtung: Der Bildschirmcode ist 
nicht mit dem ASCII-Code iden- 
tisch. Man findet die Codes der 
einzelnen Zeichen auf den Seiten 
132-134 im Handbuch. 
Einen bestimmten Bildschirm- 
ereich mit einer Farbe füllen 
Befehl: LCOL F,X1,Y1,X2,Y2 
F: Farbcode (0—15) 
X1,Y1,X2 und Y2 siehe unter 2). 
4) Bildschirm abspeichern 
Befehl: LSAVE "Filename",G 
G: Geräteadresse des Ausgabe- 
gerätes (l=Kassette, 8=Floppy) 
"Filename*: Name, unter dem der 
Bildschirm abgespeichert werden 
soll. 


(SHIFT) S 
(SHIFT) C 
(SHIFT) E 
(SHIFT) C 
(SHIFT) A 
(SHIFT) N 
(SHIFT) U 
(SHIFT) B 
(SHIFT) C 
(SHIFT) F 
(SHIFT) L 
(SHIFT) L 
(SHIFT) C 
(SHIFT) R 
(SHIFT) I 
(SHIFT) O 
(SHIFT) S 
(SHIFT) X 
(SHIFT) C 
(SHIFT) G 
(SHIFT) I 
(SHIFT) L 
(SHIFT) O 
(SHIFT) 5 


SPROFF 
SPRSET 
STEXT 
ZCOPY 
ZGER 
ZIN 
ZLOAD 
ZOFF 
ZSAVE 


ki 
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6) Bildschirm laden 

Befehl: LLOAD“Filename",G 

G und "Filename" siehe unter 4), 

6) Positionierte Ausgabe 

Befehl: LPRI Z,S," Ausdruck“ 

2: Bildschirmzeile (0—24) 

S: Bildschirmspalte (0—39) 

"Ausdruck": Auszugebender Aus- 

druck wie beim PRINT-Befehl. 

7) Ausdruck des Bildschirms 

Befehl: LHARD 

Druckt auf beliebigem Drucker 

eine Bildschirmhardcopy. 

8) Scrollen des Bildschirms 

Befehl: LSCROL R,A,E 

R: Richtung des 

(O=links, 1=rechts) 

A: Erste Zeile, die gescrollt wird 

(0—24) 

E: Letzte Zeile, die gescrollt wird 

(0—24) 

Die letzte Befehlsgruppe umfaßt 

sechs allgemeine Programmier- 

hilfen: 

l) Zurückholen eines gelöschten 

Programms 

Befehl: RENEW 

RENEW hilft sowohl bei Hard- 

ware- oder Softwarereset als auch 

beim Befehl „NEW*, 

2) Programm neu durchnumerie- 

ren 

Befehl: RENUM AZ,SW 

AZ: Anfangszeilennummer 

SW: Schrittweite der Zeilennum- 

mern. 

Zeilenreferenzen (GOTO, GO- 

SUB) werden nicht geändert und 

müssen per Hand korrigiert wer- 

den. 

3) Ausgabe aller Variablen 

Befehl: DUMP 

Funktionen werden mit einer spit- 

zen Klammer gekennzeichnet. 

Auslesen des „versteckten“ 

AMs 

Befehl: RAM S 

S: auszulesende Speicherstelle 

Es ist von Basic aus nicht möglich, 

auf bestimmte Teile des RAM zu- 

zugreifen. Dabei handelt es sich 

um die Bereiche unter dem Be- 

triebssystem-ROM ($A000—$BFFF 

und $E000—-$FFFF) sowie um die 

4 K unter dem Charakter-ROM 

($D000-$DFFFJ). Der normale 

PEEK-Befehl gibt immer den In- 

halt des ROMs aus. Der Befehl 

RAM überträgt den Wert aus dem 

RAM in die Speicherstelle 250, wo 

er mit PRINT PEEK (250) leicht 
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auslesbar ist, 

5) Basic-Programme aneinander- 
hängen 

Befehl: MERGE “Filename",G 

G: Geräteadresse des Eingabege- 
rätes (1 =Kassette, 8-Floppy) 
*Filename*; Name des nachzula- 
denden Programms. 

Es können beliebig viele Pro- 
gramme angehängt werden. Die 
Zeilennummern des nachzuladen- 
den Programms müssen größer 
sein als die des Programms im 
Speicher. Im Zweifelsfall sollte 
vorher mit RENUM neu durchnu- 
meriert werden. 

6) Hexadezimale Ein- und Ausga- 
ben erlauben 

Befehl: HEXA 

Nach Eingabe dieses Befehls 
kann man sämtliche Ein- und Aus- 
gaben in hexadezimaler Form vor- 
nehmen, So kann man zum Bei- 
spiel statt POKE 53248,120 schrei- 
ben: POKE $D000,120. 

Alle Befehle können auch abge- 
kürzt eingegeben werden (Tabel- 
le 2). Da die neuen Befehle voll ins 
Betriebssystem eingebunden 
sind, erscheint beim Listen wie ge- 
wohnt das ausgeschriebene Be- 
fehlswort. 

Die Erweiterung nimmt „nur“ 7K 
des Basic-Speichers in Anspruch, 
so daß für Programme noch ca. 32 
K zur Verfügung stehen. Die Spei- 


cherbelegung von GRAÄFIK-BA- 
SIC sieht so aus: ein Teil liegt von 
$9000 bis $9FFF, der zweite von 
$C400 bis $CFFF. Damit sind 4096 
Basic-Bytes abgezweigt worden. 
Die beiden Grafikseiten liegen un- 
ter dem ROM versteckt, das heißt, 
Seite 1 liegt bei $A000-$BFFF und 
Seite 2 bei $EO000-$FFFF. Das 
Videoram der zweiten Seite liegt 
bei $C000-$C3FF und nimmt des- 
halb ebenfalls keinen Basic-Platz 
in Anspruch. Nur das Videoram 
der ersten Grafikseite zweigt 
zwangsläufig noch einmal 1 K ab, 
da es im Bereich von $8C00 bis 
S8FFF liegt. Damit sind 5K abhan- 
den gekommen. Zu quter Letzt 
braucht ein eigens erstellter Zei- 
chensatz noch einmal 2 K, so daß 
zusammen 7 K Speicher unbenutz- 
bar sind. Dies ist jedoch im Ver- 
gleich zu anderen Erweiterungen 
minimal: Schließlich gibt es keine 
Doppelbelegungen, also sowohl 
Zeichensatz als auch beide Grafik- 
seiten können gleichzeitig benutzt 
werden. Der Zeichensatz liegt im 
Bereich von $0800 bis $OFFF, dort, 
wo normalerweise Basic-Program- 
me stehen. Der Basic-Speicher un- 
ter GRAFIK-BASIC beginnt daher 
erst bei $1000 oder dezimal 4096, 
Teil 1 und Teil 2 von GRAFIK-BA- 
SIC müssen mit dem Checker 
(Listing 1 und 2) oder als Basic-La- 
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Listing 1: Hexdump Teil 1, mit Checker eingeben 
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der (Listing 3 und 4) eingegeben 
werden. Als Startadresse für den 
ersten Teil ist beim Checker C400, 
für den zweiten Teil 9000 anzuge- 
ben. Der erste Teil ist auch ohne 
den zweiten lauffähig. Er enthält 
die 21 Befehle für die hochauflö- 
sende Grafik. Geladen und ge- 
startet wird er mit 

LOAD "G-BASIC TEIL 1",8,1 

(...1,1 bei Kassette) 

SYS 50176 

NEW 

Die komplette Erweiterung wird 
folgendermaßen aktiviert: 

LOAD "G-BASIC TEIL !",8,1 
(..,1,D) 

NEW 

LOAD "G-BASIC TEIL 2" 8,1 
(1,1) 

NEW 

SYS 50176 

NEW 

GRAFIK-BASIC schützt sich selbst 
vor dem Überschreiben durch Ba- 
sic-Programme. Die Erweiterung 
bleibt so lange aktiv, bis ein Reset 
ausgelöst wird. Danach kann sie 
mit SYS 50176 neu gestartet wer- 
den. 

Listing 5 bietet einen Autostart-Er- 
zeuger zu GRAFIK-BASIC. Er 
speichert nach dem Start mit RUN 
auf Diskette ein Ladeprogramm 
ab. Es wird mit 

LOAD "LADER G-BASIC" 8,1 
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geladen, startet sich selbst und 
lädt und initialisiert dann die bei- 
den Teile von GRAFIK-BASIC. Da- 
mit das funktioniert, müssen die 
zwei Teile unbedingt mit den oben 
angegebenen Namen abgespei- 
chert worden sein. Kassettenbesit- 
zer müssen einige Zeilen in Listing 
5 durch die Zeilen in Listing 6 er- 
setzen. 

Listing 7 enthält ein Programm, mit 
dem es sehr leicht möglich ist, den 
Zeichensatz zu verändern oder ei- 
nen völlig neuen zu erstellen. Be-. 
vor man das Programm eintippt 
und startet, muß GRAFIK-BASIC 
bereits aktiviert sein. Da die Er- 
weiterung nicht mit dem Korrektor 
zusammenarbeitet, können bei 
Listing 7 leider keine Prüfsummen 
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angegeben werden. Zuerst wird 
das Arbeitsfeld aufgebaut, in dem 
die neuen Zeichen entworfen wer- 
den. Zuerst wird nach dem 
Zeichen gefragt, welches geän- 
dert oder neugestaltet werden 
soll. Danach wird das alte Zeichen 
gelesen und im Arbeitsfeld ange- 
zeigt. Jedes Zeichen besteht ja aus 
einer 8x8-Punkt-Matrix. Dabei wird 
jeder gesetzte Punkt durch einen 
Stern, jeder nichtgesetzte Punkt 
durch einen Punkt dargestellt. In 
der linken oberen Ecke des Ar- 
beitsfeldes blinkt nun ein Cursor, 
der genau wie im normalen Basic- 
Editor mit den Cursortasten be- 
wegt wird. Alle anderen Funktio- 
nen wie INST, DEL, HOME, CLR 
können ebenfalls wie gewohnt be- 


nutzt werden. Zum Ändern eines 
Punktes bewegt man den Cursor 
an die gewünschte Position und 
drückt dann Stern oder Punkt, je 
nachdem, ob der Punkt gesetzt 
werden soll oder nicht. 
Soll ein Zeichen völlig neu gestal- 
tet werden, ist es empfehlenswert, 
vor der Erstellung das Arbeits- 
feld mit CLR zu löschen. Mit der 
RETURN-Taste wird das neue 
Zeichen in den Zeichensatz über- 
nommen. Danach können weitere 
Zeichen geändert werden. Been- 
det wird die Eingabe mit der Ta- 
te „Pfeil links". In diesem Fall 
kann man den neuen Zeichensatz 
noch auf Floppy beziehungsweise 
Kassette abspeichern. „ 

(Frank Riemenschneider) 
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E83 


9D48 
9058 
9058 
sD68 
SDEs 
9078 
93078 
9038 
sD88 
3D38 
93098 
9DA8 
sDA8 
9DBd 
SD8B8 
3DC® 
sDc8 
SDD® 
90083 
9DE® 
9DE8 
SDF® 
SDF8 
9E88 
9E88 
9E18 
9E18 
9E28 
9E28 
9E38 
9E38 
SE4® 
9E48 
9E59 
9E58 
9E68 
9ES8 
9E78 
SE?8 
9ESDO 
9E88 
SEs8 
9E38 
9EAD 
SEAB 
9EBO® 
SEBS 
9ECB 
SECS 
9ED® 
9ED8 
SEEB 
9EES 
9EF® 
SEFS 
9F88 
9F98 
9F18 
SF18 
SF28 
9F28 


CF 
FF 
c3 
FF 
FF 
FF 
FF 
c3 
E7 
c3 
c3 
Fa 
81 
c3 
81 
c3 
ca 
39 
ca 
FF 
FF 
FF 
c3 
FF 
E? 
83 
c3 
87 
81 
81 
ca 
93 
c3 
Ei 
ER) 
3F 
sc 
33 
c3 
83 
c3 
83 
c3 
81 
33 
EE) 
sc 
ER) 
81 
s3 
c3 
3F 
33 
cc 
FF 
FF 
or 
FF 
sc 
FF 
3F 


F3 
80 
33 
FF 
si 

FF 
sı 

83 
E? 
F3 
E3 
ER) 
F3 
83 
E7? 
c3 
cı 

93 
F3 
FF 
FF 
FF 
F3 
81 

81 

83 
3F 
39 
87 
87 
sı 

81 

E? 
F3 
Br 
SF 
34 
81 

ER) 
83 
ER) 
83 
c3 
E? 
EE) 
33 
34 
E? 
E7 
c3 
F3 
CF 
c3 
33 
FF 
FF 
or 
FF 
sc 
E? 
ar 


F3 
c3 
33 
FF 
FF 
FF 
FF 
33 
E7? 
CF 
F3 
80 
F3 
ER) 
E7 
33 
F3 
ER) 
ci 

FF 
81 

FF 
E? 
E7? 
33 
33 
ar 
ER) 
3F 
9F 
93 
993 
E? 
F3 
87 
SF 
sc 
si 

33 
3F 
99 
87 
F3 
E? 
99 
93 
EL) 
c3 
CF 
E? 
E? 
ar 
E? 
cc 
FF 
FF 
or 
EI) 
os 
FF 
ar 


c4 
51 
ı4 
e1) 
?D 
e8 
?D 
F& 
82 
E2 
63 
D1 
99 
es 
pc 
c4 
25 
88 
?E 
18 
84 
08 
eo 
?D 
Ds 
84 
Fa 
82 
?c 
SA 
FC 
B2 
Aa 
15 
sc 
82 
SD 
n2 
EE 
AB 
F2 
se 
293 
e2 
c4 
BE 
sD 
n8 
46 
BE 
e8 
08 
BE 
ET) 
.T:) 
3c 
02 
08 
D7 

17 
08 


Listing 3: Basic-Lader Teil 1 Y 


FOR 1=598176 TO 53247:READ A:S=S+A:POKE I1,AtNEXT 
IF 573363848 THEN PRINT "LCLRIFEHLER IN DATAS!":GOTO 508 
Sys S57812"G-BASIC TEIL 1",8 


POKE 
POKE 


193,0089:POKE 194,196 
174 ,255:POKE 175,297 


SYS 629354 NEW 


REM 


FOR 1=598176 TO 53247:READ A:S=S+A:POKE I,A:NEKT 
IF S<C)363048 THEN PRINT "FEHLER IN DATASI":END 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
onTA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


076,158,203,076,089,204 ,076,150,291,076,866,196,0876,999,196,076 
132,196,076,027,199,076,024,1998,876,043,198,076,048,193,0786,832 
291 ,876,029,201,976,233,199,976,230,199,976,098,138,076,0895,1938 
076,119,201 ,076,043,202,078,008,203,076,056 ‚282,076 ,246 ,206 ,876 
243,206,234,169,169,193,252,169,99808,133,251,162,032,160,808,145 
251,298,2098,251,239,252,2902,203,244 ,0996,,032,158,183,192,248,297 
162,083,169,140,133,252,160,008,132,251,132,151,173,248,207,145 
251,2089,196,151,208,249,239 ,252,292,249,083,016,242,896, 162,232 
134 ,151,208,235,032,158,193,142,248,207,096 ,032,235,183,138,168 
166 ,921,192,208,176,013,165,0208,224,001,144,086,208,005,201,064 
176,001 ,096,0768,072,178,149,253,207,141,252,2987,192,254,287,133 
020,134 ,021,152,974,074,074,178,189,065,198,133,173,138,841,003 
170,199,091,1998,1393,172,152,041,0087,024,181,172,133,172,165,028 
041,248,133,099,169,168,005,173,193,173,024 ,165,172,101,099,133 
172,165,173,101,9021,133,173,165,020,0491,097,073,097,178,189,057 
198,133,171,096,072,173,254 ,207 ,8974,173,252,207,106,074,074,133 
111,104,072,056,237 ,252,207,972,138,237,254,287,133,188,176,818 
104 ,973,255,105,891 ,072,169,009,229,108,133,106,133,110,184,133 
105,133,109,194,141,252,207,142,254 ,207,152,024 ,237 ,253,287,144 
094,073,255,195,254,133,197,148,253,207,182,108,056,229,185,178 
169,255,223,106,133,112,164,111,1786,805,918,032,199,197,856,165 
189,101,1987,133,1809,165,118,233,008,133,119,132,111,032,228,197 
232,208,005,230,112,208,001,096,165,188,176,222,032,152,1937,024 
165,1893,181,105,133,189,165,118,101,106,090,221,165,172,091,007 
291,907 ,240,005,056,169,909,176,084,169,056,238,173,181,172,133 
172,169,098,181,173,133,173,098 ,948,226,165,172,941,007.,248,885 
024,169,255,144,004,169,199,198,173,191,172,133,172,165,173,233 
009,1393,173,996,078,171,144,014,102,171,165,172,209,9024,105,8088 
133,172,144 ,0082,230,173,896,016,235,006,171,144,014,038,171,165 
172,136,956 ‚232,909, 133,172,176,802,198,173,096,128,160,853,132 
091,160,000,008,073,255,165,171,036,151,0498,085,073,255,8049,172 
044,817,172,195,172,169,855,133,801,888,165,172,133,251,165,173 
074,102 ,251,9074,1902,251,974,102,251,041,003,0083,148,133,252,173 
249,207,195,251,048,164,111,096,162,0080,044,162,128,134,151,032 
139,196,032,166,196,076,229,197,162,000,0494,162,128,032,029,198 
032 ,253,174,922,139,196,976 ,244,196,001,992,004 ,888,016,932,064 
123,000,901,002,883,005,986,087,088,918,811,912,013,815,016,817 
819,028 ,021,022,023,025,0268,027,028,038,031,008,064,128,192,162 
0998,044,162,128,134,151,832,158,183,224,088,248,987,224,081,248 
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811,876,972,178,169,025,141,231,003,876,129,198,169,923,141,231 
0803,032,253,174,032,139,196,1498,253,287,141,252,287,142,254,207 
149,0971,203,141,069,003,142,978,003,159,819,032,210,255,032 ,253 
174,032,159,173,836,913,048,086 ‚832 ,221,189,032,135,188,832,166 
182,191,135,0083,141,136,003,032,036,171,168,088,177,834,281,832 
144,0817,201,1293,144 ,004 ,201,161,144,009,2098,204,136,003,288,236 
076,217,199,206,135,903,976,202,198,169,0808,1491,134,803,169,888 
191,961,0983,174,134,003,189,008,094,236,135,003,288,883,076,223 
129,141,069,9893,914,069,003,046 ,861,083,814,068,083,046,861,003 
814,060,003,846,061,9903,169,008,141,862,083,169,208,141,863,083 
169,0890,141,064,883,141,065,083,173,231,093,041,002,201,008,248 
005,169,093,141,065,903,1€0,908,132,250,024,173,868,803,109,0862 
883,141,066,0083,173,061,003,109,063,083,141,067,893,824,173,0866 
083,109,064,083,141,966,803,173,067,003,109,965,003,141,067,083 
024,173,866,903,101,259,133,253,173,9067,0083,185,008,133,254,128 
169,9493,133,091,160,90908,177,253,141,132,003,169,055,133,081,088 
162,808, 173,252,207 ,024,105,091,191 ,252,207,173,254,207,105,008 
141,254 ,207,173,132,993,0€1,056,199,221,056,198,288,024,138,872 
152,072,024,172,253,207,173,252,287,174,254,287,032,166,196,832 
229,197,104,169,184,170,202,224,0081,176,199,238,259,238,253,287 
173,09693,003,141,252,207,173,978,003,141,254,207,164,250,192,008 
144,142 ,924,173,252,207,105,008,141,252,207,141,069,0083, 173,254 
2087,1085,008,141,254,287,141,878,803,238,134,9083,173,071,083,141 
253,207,076,222,198,096,169,088,0844,169,128,133,151,032,139,196 
149,167,003,141,165,003,1492,166,003,032,253,174,032,138,173,168 
093,162,121,9032,212,197,169,080,133,175,032,253,174,032,138,173 
160,883,162,126,032,212,187,169,245,168,226,832,162,187,169,203 
169,185,032,0815,187,162,136,169,083,932,212,187,169,832,141,132 
003 ,932,253,174,032,138,173,169,003,162,131,832,212,187,032 ,253 
'174,032,1393,173,168,893,162,141,832,212,187,169,131,168,803,832 
162,187,0832,100,226,169,121,1680,803,032,048,186,169,817,168,191 
832,103,184,032,155,188,024,165,181,189,165,003,133,828,165,188 
189,166,8083,133,021,169,131,160,003,032,162,187,032,187,226,169 
126,169,083,832,840,186,169,017,168,191,832,103,184,832,155,188 
224,165,181,199,167,803,168,165,920,166,021,141,063,093,142,064 
003,149,965,003,032,166,196,932,229,197,165,175,201,098,248,815 
173,0869,003,174,861,003,172,062,093,032,244,196,076,193,208 ,238 
175,173,263,903,141,0960,003,173,064,003,141,861,0083,173,065,983 
141,962,803,169,131,168,0083,032,162,187,169,136,169,803,832,183 
184,162,131,169,9083,832,212,1987,169,141,168,003,0832,088,184,0832 
0843,19393,048,003,976 ,075,2008,169,141,169,0083,9032,1862,187,162,131 
168,003 ,032,212,187,169,819,141,199,209,169,291,141,198,208,876 
875,2008,169,193,141,123,208,169,208,141,190,208,036,162,098,844 
162,128,134,151,0832,139,196,191,069,803,142,061,083,148,862,083 
932 ,253,174,832,139,196 ,204 ,062,083,144,0498,141,063,003,142,064 
083,149,065,903,173,960,003,174,061,8083,172,062,883,032,166,196 
e32,228,197,173,063,0093,174,964 ,003,172,062,083,032,244,196,238 
862,003,173,062,093,285,065,9003,208,218,096 ,,9768,072,178,169,888 
162,168,133,251,134,252,162,9032,128,169,853,133,881,160,8008,177 
©51,073,255,195,251,2098,208,247 ‚230,252 ,202,208,248,169,055,133 
221,998 ,095 ,0976,089 ,204 ‚234 ,032,158,183,224 ‚008,240 ,245 ,224 ‚801 
249,097 ,224 ,002 ,240,,021 ,076,072,178,169,059,141,017,298,169,056 
141,9024,208,169,149,141,0008,221,078,202,281,169,053,141,817,208 
169,088,141,024,208,169,009,141,900,221,032,253,174,032,158,183 
224,001 ,249,087 ‚224,802 ‚248,843 ,976 ,072,178,1693,168,141,868,196 
141,213,196,141,113,201,141,098,282,141,112,203,169,148,141,0993 
1936,141,012,198,169,249,191,094,196,141,1909,195,141,136,196,141 
016,192,896,169,224,141,969,196,141,213,196,141,113,281,141,848 
202,191,112,203,169,192,141,039,196,141,812,19338,169,241,141,894 
196,191,109,196,141,136,196,141,0816,199,096 ,234 ,832,212,225,168 
169,162,098,169,9908,0976,213,255,169,081,162,0084,160,009,032,186 
255,169,880,032,199,255,032,192,255,162,001 ,932,201 ,255,169,255 
133,097,169,007,133,253,169,028,133,151,169,0008,141,060,003,169 
049,141,061 ,003,162,8984,183,003,283,032,210,255,202,816,247,169 
089,133,0899,133,108,173,060,9083,133,181,169,000,133,254,165,093 
166,189,164,181,832,166,196,168,0998,120,169,053,133,081,177,172 


\ 


42 QUD Spezial 1 


FAN ARE PTR ORLD. 2 


133,258,169,055,193,001,0938,1653,250,166,254,157,064,083,238,181 
232,124 ,254 ,228,253,208,215,169,000,1690,907,166,253,030,064 ,083 
842 ‚292 ,916,249,037 ‚897,009, 128,032 ,210,255,136,016,237,165,0993 
224,105,093,133,899,144,002,239,190,206,061,9083,208,167,169,813 
832 ,2198,255,173,060,003,024,1905,087,141,069,003,198,151,248,083 
078,8935,202,169,004,197,253,249,912,133,253,169,001,133,151,169 
815,133,097,208,235,169,815,032,210,255,032 ,204 ,255,169,001 ,032 
135,255 ,896 ‚889,008 ,016,,027,008 ,234,,032,158,173,036,013,048,888 
822 ,221,189,032,135,180,032,166,182,133,253,169,003,133,188,133 
252,169,060,133,197,133,251,160,0908,177,034,145,251,208,1958,253 
208,247,169,044,145,251,208,169,089,143,251,208,169,844,145,251 
208,169,937,145,251,208,132,183,032 ,253,174,032,158,183,224,008 
240 ‚297,224 ,001,248,083,078,872,179,169,001,160,002,0832,186,255 
832,192,255,162,891,932,201,255,169,9800,133,251,032,210,255,163 
169,133,252,032,219,255,162,032,1698,008,120,169,053,133,081,177 
251,133,253.169,855,133,891,098,165,253,032,210,255,208,2088,234 
230 ,252,202 ,208,227,032 ‚204 ,255,169,901 ,032,195,255,096, 173,017 
283,141,233,207,173,924,208,141,234 ,287,173,008,221,141,235,287 
169,109,141,004,093,169,204,141,005,993,169,814,141,032,288,141 
233,208,169,049,141,908,003,169,205,141,097,003,832,831 ,286,162 
092,168,083,1349,214,132,211,032,108,229,1693,010,169,204,032,838 
171,169,134,141,000,003,169,207,141,001,803,162,004,1690,004,194 
214,132,211,922,1998,229,169,953,160,204,832,0308,171,169,016,133 
844 ,172,099,098,141,008,816,075,2093,207,147,031,9817,032,842,042 
Ba2 ‚842,032 ,971,0932,0965,878,073,973,032,045,032,066,065,083,973 
067 .,0932 ,032,022,086 ,0963,982,0933,073,0793,078,032 ,050,046 ‚858,032 
042.042 ,092,042,099,0499,967,941,032,849,057 ,056 ‚053,032 ,032 ,832 
870,922 ,965,078,075,032,0932,073,863,077,869,078,083,067 ,872,078 
263,973 ,068,263,0982,017,917,088,173,233,207,191,017,208,173,234 
2097,141,024,203,173,235,207,141,098 ,221,876,069,223,166,122,168 
004 ,132,815,189,808,092,816,097,2081 ,255,249,862 ,232,208,244 ‚2081 
8232,240,055,133,808,201,034 ,248,995,838,015,112,045,201,063,208 
004 ,169,153,208,837,201,049,144,004 ,281 ,068,144,0293,132,113,168 
009,132,811,1936,134,122,202,200,232,189,000,002,056,249,158,160 
249,245,201,128,298,047,005,011,164,113,232,208,153,251,001 ,281 
Nn00 ,248 ‚056 ‚9856 ‚233,958 ,240,004 ‚201 ,073,208,002,133,015,056 ,233 
0935,298,1689,133,093,199,908,002,240,224,197,088,249,220,208,153 
251,081 ,232,208,248,166,122,239,011,2080,185,157,160,016,258,185 
159,169,208,1931,248,915,1829,009,092,016,183,153,253,081,198,123 
1693,255,123.122,896,1690,000,185,191,2085,208,002,208,232,189,008 
e92,056,243,191,295,249,245,201,128,2898,004 ,805,011,208,153,166 
122,238,811,209,185,108,205,016,259,185,101,205,208,224,248,1398 
216,915,026,915,9049,011,201,255,249,007,201,204,176,0086,076.,836 
167,076,243,16° ,056 ,233,203,170,132,073,169,255,202,248,0898,2988 
185,191,285,016,259,048,245,208,185,181,205,9498,0085,032,871,171 
298,245 ,976 ,239,166,,8937 ,,069,032,073,069,218,071,073,084,0693,888 
212,0871,077,073,069,197,071,067,076,069,065,218,071,067,079,284 
089,967 ,979,204,883,020,0756,073,212,967,089,076,073,212,083,876 
0723,9078,197,067,076,073,078,197,083,066,,0976,,079,195,.867 ,0866 ,,876 
073,1935,9083,967,073,219,067,067 ,073,210,083,084 ,0693,088,212,867 
084 ,063,088,212,071,073,0798,214,071,076,073,065,196,071,083,865 
996,197,971,9872,065,0932,196,083,978,982,965,077,197,067,870,082 
065,877,197,069,082,082,973,218,068,073,033,203,0698,873,218,0876 
073,078,214,976,870,973,076,204,9876,867,979,204,076,076,079,0965 
196,076 ,983,065,,086 „J37 ,0976 ,088 ,082 ‚201,076 ,072,065,082,196,076 
082,067 ,092,879,204 ,090,067,073,0880,217,082,069,079,869,215,082 
069,078,085,295,068,085,077,208,082,065,205,077,069,082,871,197 
072,069,0988,193,093,089,082,068,969,1998,083,088,082,073,286,883 
058,082 ,0979,078,198,083,080,0932,083,0869,212,083,089,0882 ‚867,073 
204 ,08909,071,0869,210,0930,073,206 ,098,073,070,198,090,076,979,065 
196,090,0883,065,086,197,071,073,0878,198,0098,169,182,160,286, 141 
8098,083,1498,909,003,096,832,115,098,032,111,206,876,174,167,2091 
204,144 ,004,201,254,144,806 ‚032 ,121,888,076 ,237,167 ,056 ,233,284 
819,179,199,142,206,972,189,141,206,,072,876,115,008,008,048,008 
048,005,196,008,196,811,196,914,196,917,196,0208,196,023,196,926 
196,0923,196,032,126,835,196,038,196,941,196,944,196,847,1936,858 
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273 DATA 196,953,198,958,196,959,196,862,196,255,143,005, 144 ,002,144,088 

274 DATA 1494,011,1944,9194,144,017,144,920,144,023,144 ,926,144,929, 144,832 

275 DATA 144,035,144,938,144,041,144,044,144,047,144,050,144,053,144 ,056 

e7E DATA 144,0859,144,0962,144,0685,144,068,144,071,144,074,144,077,144,8808 

277 DATA 144,0008,048,162,000,044,162,129,134,151,032,1393,196,141,060,003 

e78 DATA 142,061,993,140,862,003,032,253,174,032,139,196 ‚204 ‚862,003, 144 

273 DATA 873,141,063,093,142,064 ,903,140,065,003,173,060,003,174,861,003 

288 DATA 172,062 ,0093,0932,166,196,032,220,197,173,063,003,174,069,083,172 

2931 DATA 062,003,032,244,196,173,063,903,174,964,003,172,065,093,032 ,244 

282 DATA 196,173,060,0083,174,0861,003,172,065,003,032,244,198,173,969,083 

233 DATA 174,061 ,083,172,062,0093,032,244,196 ,896 ,876 ,0972,178,913,9032,932 

284 DATA 932,032 ,032,032,032,032,032,032,032,032,932,932,032,832,932,932 

885 DATA 832,032 ,032,032,832,032,032,832 ,032 ,032 ,032 ,832 ‚032 ‚832 ‚832 ‚032 

e86 DATA 832,032,032,032,032,099,134,251,165,214,133,232,165,211,133,253 

227 DATA 162,0081,160,091,134,214,132,211,032,108,223,169,093,160,287,032 

283 DATA 839,171,165,252,133,214,165,253,133,211,932,1909,229,173,233,207 

283 DATA 141,017,208,173,234,297,191,024 ,208,173,235,207,191,000,221,166 

298 DATA 251,190,049,093,0756,053,164,076,116, 164,002 ‚250 ,080,255,992 ‚223 

231 DATA 169,1498,133,9568,076,134,227,223,0008,223,000,223,004,111,082,191 

292 DATA 032,9046,111,947,002,096,009,815,008,827,821,1993,000,014,058,944 

233 DATA 119,097 ,088,008,200 ,09088,0068,012,914,813,008,012,056,199,001,815 

3828 DATA 35375,33912,26315,309155,29353,32818 

381 DATA 32983 ,34266 ‚27704 ‚23391 ‚266908 ‚24396 

488 REM 

401 REM 

482 REM FEHLERFINDER 

483 REM 

s88 PRINT :PRINT :AA=49928:E2=836 

Sal FOR K=1 TO 12:AA=AA+2SSIEA=-AA+2SSIEZ=EZ+IS:LZ=EZ +ISTREAD CS:GOSUB 
S98:NEKXT 

582 END 

698 S=B:FOR I=AA TO EA:S=S+PEEK (II:NEXT 

681 IF S<ICS THEN PRINT "FEHLER IN ZEILE"FEZ2I "BIS" SL2 

682. RETURN 


Listing 4: Basic-Lader Teil2Y 


98 FOR 1=-36864 TO 48959:READ A:S=S+ArPOKE I,A:NEXT 

si IF S<c>511738 THEN PRINT "ICLRIFEHLER IN DATAS!":GOTO 599 

92 SYS 57812"G-BASIC TEIL 2”r,8 

933 POKE 193,888:POKE 194,144 

94 POKE 174,255:POKE 175,159 

935 SYS 62954 1 NEN 

96 REM 

182 DATA 876,984,144,076,125,144,0876,239,144 ,8768,088,145,076,834,145,076 
183 DATA 047,145,076,107,146,876,074,146,076,177,151,076,156,146,076, 183 
184 DATA 147,876,245,148,076,847,146,876,894,147,076,189,148,976,116,149 
185 DATA 876,171,149,076 „237,149,0876,868,158,076,817,151,876,038,151,076 
186 DATA 067,151,076,143,151,076,036,147,078,058,147,0768,132,148,0768,062 
187 DATA 147,876,874,147,169,001,162,009,160,015,032,186,255,169,008,032 
188 DATA 189,255,832,192,255,162,001,832,199,255,032,297 ,255,032,218,255 
189 DATA 936,144 ,0889,246 ,8932,204 ,255,169,001 ,0932,195,255,036,169,836, 133 
118 DATA 251,169,251,133,187,169,00808,133,188,169,001,133,183,169,008, 133 
ill DATA 186,169,096,133,185,032,213,243,165,186,032,180,255,165, 185,032 
112 DATA 159,255,169,09808,133,144,169,003,132,251,032,165,255,133,252,164 
113 DATA 144 ,208,047,032,165,255,164,144,208,048,164,251,136,288,233,166 
119 DATA 252,932,205,189,169,032,032,210,255,032,165,255,166,144,208,018 
115 DATA 170,249 ,006 ‚832 ,218,255,076,201,144,169,913,832,210,255, 168,002 
1186 DATA 208,1993,032,066,2468,096,169,981,162,088,169,915,032,186,255,169 
117 DATA 0808,032,189,255,032,192,255,162,081,932,281,255,832,164,179,832 
118 DATA 294 ,255,169,801,032,195,255,8968,169,008,133,251,169,884,133,252 
119 DATA 179,160,888,177,251,073,128,145,251 ,200 ,2088 ,247 ‚230 ‚252 ,202 ,208 
i2B8 DATA 240,996,169,9084,133,254,032,158,183,142,0684,003,076,068,145,169 
i21 DATA 216,133,254,032,158,183,138,841,815,141,064 ,003,832,253, 174,932 
i22 DATA 158,1983,224,925,144,0803,076,0872,178,142,860,903,032,253,174,032 
123 DATA 158,183,224,948,144,093,976,,872,178,142,061 ,003,032,253, 174,832 
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158,183 ,224 ‚025,144 ,003,978,072,178,142,062 ,803,932 ,253, 174,832 
159,183 ,224 ‚848,144 ,903,076,0872,178,142,063,083,173,069,003,205 
862,003,144,015,208,248,173,061,903,285,863,0083,144,885,248,983 
9876 ‚872 ,178,173,863,083 ,056 ‚237,861 ,903,024,,185,081 ,191 ,078,883 
173,962 ,993,956 ,237,068,093,024,105,081,141,069,003,169,008,133 
250,133,251,133,252,133,253,169,909,204,0698,883,249,819,165,2598 
024,105,849,133,258,165,251,195,008,133,251,208,204,0698,983,288 
237 ,024,165,258,1093,861,903,133,250,165,251,105,008,133,251,168 
BOB ,204 ‚062 ,0083,248,819,165,252,024,185,848,133,252,165,253,185 
899,133,253,288,204 ‚0862 ‚093 ,208,237,024,165,252,109,063,083,133 
e52,165,253,105,008,133,253,024,169,251,191,254,133,251,174,0693 
003,169,900,173,064,003,145,2508,208,204 ,078,003,208,245,165,2508 
824,1085,849,133,258,165,251,195,008,133,251,292,208,227,096,169 
8981,1698,801,145,943,832,051,165,165,934,185,002,133,9045,165,035 
185,008,133,046 ,832,8993,166,876,116,164,165,157,133,253,169,098 
133, 157,032 ,212,225,162,232,160,0087,169,088,133,251,169,084, 133 
e52,169,251,032,216,255,165,253,133,157,096,165,157,133,253,189 
090,133,157,8032,212,225,162,099,160,0984,169,888,032,213,255,165 
253,133,157,996,169,021,141,024 ,288,141,234 ,287,234,169,288,141 
812,199,096,976,164,170,0768,164,1708,032,253,1798,169,084,133,186 
169,126,133,194,169,009,169,994,133,113,132,114,133,183,133,185 
832,192,255,166, 184 ‚832 ‚281 ,255,162,025,169,013,032,210,255,160 
898,177,113,133,103,941,963,906,103,036,183,816,002,083,128,112 
802,009 ,964 ‚832,219,255,200,192,849,298,230,152,9024,181,113,133 
113,144 ‚082 ,238,114,202,208,219,169,913,032,218,255,932 ,284,,255 
169, 126,076,195,255,1208,165,9091,133,254,041,251,133,881,169,288 
133,251,169,908,133,253,169,909,133,250,133,252,162,988,160,088 
177,258,145 ,252,200,208,249,239,251 ,239,253,2902 ,2088,248,165,254 
133,801 ,888,096,169, 152,141 ,255,146,032,245,146,169,208,191,255 
146,096, 169,018,141,924 ,288, 141,234 ,287 ,876,,282,151,896 ,832 ,212 
225,169,008,162,9080,169,008,0876,213,255,0832 ,212,225,168,815,162 
255,169,008,133,258,169,088,133,251,169,258,076,216,255,234 ,832 
138,173,832,247,183,165,029,133,251,165,021,133,252,032,253,174 
032,138,173,032,247,183,165,043,164,044,133,034,132,035,168,083 
1865 ,252,145,034 ,136,165,251,1495,034,136,177,034,248,037,133,037 
136,177,034,133,036,169,002,024,177,034,101,9028,145,036,288,177 
034,1981,821,145,036,176,813,165,036,133,0349,165,037,133,835,168 
891 ,208,215,096,978,9872,178,234,932,158,183,138,074.,888,0832 ,253 
174 ,032,158,183,224 ,8025,144,083,076,072,178,134 ,259,032 ,253,174 
832,158,183,224,925,144,003,076,972,178,134,251,1398,166,259,164 
251,056 ‚223,258, 176,006 ‚873,253, 186 ‚251,164 ,250, 133,254 ,049,,008 
144 ,083,208,152,170,189,128,148,133,098,189,154,148,133,997,048 
088,144 ,004 ‚233,081 ,133,0937,165,89383,0841,003,0089,9894 ‚848,888 ,832 
059,148,949,008,165,097,144,018,105,039,133,0937,144,812,238,898 
176,808,233,0393,133,097,176,082,198,098,165,098,8041,8083,803,218 
940,009 ,032,059,148,198,254,816,2068,0840,096,133,898,144,803,876 
09365,148,1698,098,177,837,178,160,039,177,897,072,138,195,097,184 
178,136,0168,245,024,165,097,1805,048,133,997,144,9892,230,098,896 
856,165,0937,233,848,133,897,1786,002,198,098,169,848,177,897,179 
160,0881,177,9897,072,138,145,097,184,179,2008,192,041,288,243,096 
094 ‚804 ‚004 ‚0084 ‚804 ‚004 ‚984 ,0985,095,005,085,005,0085,086 ‚886,886 
006,086 ‚906 ‚0086 ‚887 ‚897 ‚007 ,087,087 ,087 ,0080,048 ,880, 120, 168,208 
249,024 ,064,184,144,184 ,224,008,048,088,128,169,288,248,032,972 
112,152,192,232,165,045,169,946,133,828,132,021,196,048,208,082 
197,847,176,024,1905,092,144,801,280,133,834,132,035,032,258,148 
032,946,149,1393,016,007,032,055,149,076,233,148,896,152,848,886 
832,071,149,076,233,148,832,09898,149,169,9013,832,218,255,165,929 
164 ,021,024,105,907,144,193,298,176,1998,168,008,177,828,178,841 
127,932 ,210,255,2098,177,028,168,041,127,2408,003,032,210,255,138 
816,917,152,948,918,169,062,932,218,255,184,104,076,233,148,169 
837 ,288,078,152,816,984,169,836,208,071,896,032,218,255,169,832 
832 ,210,255,169,861,208,059,169,008,177,834,178,2088,177,834,168 
138 ,032,149,179,078,0874,149,032,166,187,832,221,189,0876,039,171 
832,111,149,160,892,177,034,133,0837,136,177,034,133,0836,136,177 
034 ,133,9038 ,248,918,177,9038,032,219,2535,200,196,9038,288,248,169 
834 ‚8976, ,218,255,234,032,138,173,032,247,183,165,0828,133,253,165 
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021,133,254,166,801,134,252,201 ,208, 144 ‚807 ‚201 ‚224,176 ‚083,163 
943,844,169,052,128,133,0081,1690,008,177,253,133,250,165,252,133 
081,088,169,988,133,252,133,253,133,254 ,896,165,043,133 ,251 ,165 
044,133,252,032,212,225,165,045,956 ,233,992,133,043,165,946 ,133 
0844 ,176,002,198,044,166,043,164 ,044,,169,000 ‚032 ,213,255 ,134 ‚845 
132,046,165,251,133,043,165,252,133,0844,1869,118,168,163,032 ,838 
171,032,0842,165,032,142,166,032,851,165,876,119,166, 169 ,248, 162 
149,141,818,083,142,811,003,096,169,090,133,013,032,113,008 ,201 
036 ‚240,886 ‚832,121 ,00808,076,141 ,174 ,832 ,0858,150 ,032,115,060,, 144 
011,201,0865,144,831,201,071,176,9027,056 ‚233,897 ‚856 ‚233,848 ,072 
165,897 ,248,087 ,024,,185,004,,176,014,133,097,104 ‚240 ‚222 ‚832,126 
189,076,8012,150,076,121,008,076,072,178,169,000,162,018,149,093 
282,016,251,096 ‚234 ,032,158,183,224 ‚808,144 ‚083,876 ,872,178,134 
253,032,253,174,032,158,183,169,097,133,251,169,248 ‚824,191 ,253 
133,250,160,008,138,145,258,032 ,253,174,032,158,183,224,016,144 
0083,076,872,178,169,288,133,251,169,039,924,101,253,133,2538,169 
0888,138,145,258,832,253,174,032,159,183,224 ‚082,144 ‚803,876 ‚072 
178,134 ,250,173,027,208,166,253,029,859,151,164 ,258, 192,081 ,248 
0883 ,093,0859,151,141,027,208,032 ‚233,174 ,032,158,183,224 ‚882,144 
083,0876,072,178,134,250,173,028,208,166 ,253,029,059, 151,164 ,250 
192,081 ,248,803,033,059,151,141,028,208,832 ‚233,174 ‚832,158, 183 
224 ,082,144,003,076,972,178,134,258,173,023,208, 166 ‚253 ‚029 ,853 
151,184 ,250,192,0081,248,003,093,059,151,141,023,208 ,032 ‚253,174 
032,158,183,224,002,144,093,076,972,178,134,258,173,029,288,166 
e53,029,859,131,164,258,192,001 ,249,903,033,8593,151,141,0293,208 
836 ‚234 ,832,158,183,224 ,008,144 ,8083,0768,972,178,173,021,208,023 
059,151,1491,021,288,096 ‚234 ,032,1598,193,224,808, 144,803 ,976 ‚872 
178,173,021,208,093,059,151,141,021,208,096 ‚881 ‚002 ‚894 ‚088 ,918 
032 ,064,128,234,032,159,183,224 ,088, 144 ,093,976 ,972,178,134 ,254 
169,288,133,251,133,253,169,009,024,125,135,151,133,259,024,105 
0881,133,252,032,253,174,832,235,193,160,900,138,145,252,1685,028 
145,250,173,016,288,166,254,029,959,151,164,021,192,081 ,240 ,083 
893,859,151,141,816,298,095,088,002,004 ‚086 ,008,018,012,814,234 
032,158,183,224,016,144,003,876,9872,178, 142,037 ,208 ‚032 ‚253, 174 
0832,158,183,224,816,144,003,876,072,178,142,038 ,208 ‚896 ‚932 ‚253 
174,032,1598,183,138,072,032,253,174,032,159,183,138,168,104,178 
024 ,832,248,255,032,253,174,076,164,178,169,008,141,012,199,038 
111,255,032,219,008 ‚223,032 ‚255,000 ,223,032 ‚223 ‚834 ‚223 ‚002 ‚223 
088,223,908,223,000,223,097,119,009,255,008, 182,000 ,255 ‚009 ‚255 
008,255 ,0008 ,000 ‚806 ‚255 ,008,119,064,119,064 ,085 ,002 ‚214 ‚255,923 
102,088,182,182,1982,102,062,008,008,008 ‚860 ‚006 ‚862, 182 ‚052 ‚v0 
008 ,095,896,, 124,102, 102,124 ‚008,000 ‚908 ‚868 ‚896 ‚996 ‚096 ‚860 ‚808 
000,006 ,886 ‚,062,102,102,062,008,,000,009 ,069, 192, 126 ‚096 ‚860 ‚808 
008,814 ‚924 ‚862,924 ‚824 ‚024 ‚000 ‚080 ‚090 ‚862,182 , 102, 862,086 ,124 
0080,096,896,124,102,182,192,090,008 ‚024 ‚000,056, 824 ‚824 ‚060,098 
008,006 ,008 ‚806 ‚806 ‚096 ‚896 ‚060,009 ,096 ,096,, 188,129, 188,182,088 
000,056 ,024 ‚024 ‚024 ‚824 ,860,008,000 ‚008, 182. 127.127. 187.099 000 
9008 ,008,124,1982,102,182,102,009,000,009,068,102,102,102,069 ,000 
0089,888,124,182,1902,124,096,096 ‚000,880 ‚862, 182, 182 ‚862 ‚906 ‚vos 
2008 ,808,124,102,896,,096 ‚0965 ,800,,800 ,008 ‚062,096 ‚060 ‚808 , 124,000 
000,0224,1256,024,024 ‚924 ,014,0808,008,008,102,102, 102,102 ,0862,900 
000,0088,102,102,102,060,024 ‚800,000 ,088,099, 187, 127,862 ‚854 ‚808 
008,808,102,060,024 ,068,1982,0888,0880,000, 126 ,012,024 ‚848,126 ,008 
0008,008,102,102,102,062,012,128,102,068,182,102,182,102,060,008 
980,0808,126,812,024,048,126,089,219,068,1082,126,102,102,192,008 
208,024 ,868, 126,024 ‚924 ‚924 ‚024 ,0008,816,048, 127,127 ,048 ‚816,000 
2908 ,008,9088,900,000,008,0009,800 ,824 ‚824 ‚024 ‚024 ‚000 ‚000 ‚224 ‚008 
182,1902,102,008,008,000,000,008,069,,096,,056, 108 ‚856 ‚812, 129,000 
024 ‚062,096 ,060,906 ‚124,024 ,000,099, 182,012,024 „B48 , 182.070 080 
0868,102,969,9856,103,102,063,000,900 ,003,096 ‚912 ‚824 ‚048 ‚936 ‚890 
812,024,049,048,048 ,024 ‚012,000 ,048 ‚924 ‚812,012,8012,024 ‚849,000 
008,192 ,068 ,255,060, 102 ,080,008,,068, 182,102, 108,182, 192,124 ‚896 
009 ,000,000,000,000,924 ‚924,948 ,900 ,080 ,098, 126,000 ,000, 099,888 
220 ‚008,098 ,980 ‚800 ‚024 ‚824 ‚008 ‚000 ‚000 ‚008, 126 ‚000 ‚000 ‚899,088 
069,182,118,118,102,102,069,900 ,924 ‚924 ‚056 ‚024 ‚824 ‚824,126,988 
069,192,906,012,048,896, 126 ‚088,060, 102,006 ‚928 ‚886 ‚102, 869,998 
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006,814,0398,182,127,006,8086,8088,126,896,124,006 ,,886, 182,068,098 
869,1902,096,124,192,1082,060,808,126,102,812,024 ,024 ,024 ‚024 ‚888 
069,182,102,869,1902,1902,060,8098,069,182,182,862,906,102,960,088 
182,8080,069,102,102,182,969,0090,054,088,868,086 ‚862,182 ,062,908 
0098 ,00808,024 ‚880,088 ,924,024,848,009,000,126,808,126,988,088,888 
909,098 ‚9824 ‚888,008 ‚024 ‚888 ‚888,069, 182,006 ,812 ,,024 ‚8080 ,024 ,888 
009,024 ,824 ,126,824 ‚924 ,0808,908,9024 ,869,182,126,192,182,182,088 
124,182,182,124,182,102,124,0090,068,102,0896,096,896, 192 ,068,808 
128,108,102,102,182,108,128,088,126,096,096,128,8968,996,126,889 
126,096 ,096,1298,896 ,096 ‚096 ‚0098 ,,860,102,0936,118,1902,192,868,088 
182,182,182,126,182,102,102,008,960 ‚824 ‚924 ‚824 ‚024 ‚824 ‚860,009 
838,812,912,812,812,198,056,,088,102,108,128,112,128,183,102,008 
896,896 ‚896 ‚896 ‚896 ‚2936, 126 ,888,899,119,127,197,099,899,899,888 
182,118,126,126,118,102,102,008,868,192,182,102,182,102,8069,008 
124,102,192,124,896,896 ,896 ,008,068,102,182,182,102,868,914,888 
124,102,182,124,120,108,102,908,069, 102,036 ,060,086, 182,968 ,898 
126,024 ,024 ‚824,024 ,024,024,008,102,102,182,102,102,1082,068,088 
182,102,182,102,102,060,024 ,008,8993,839,899,187,127,119,899,888 
182,182,069,824,8069,192,182,0028,126,0056,812,924,0498,8936,126,0088 
182,192,192,068,024 ,024,,024 ‚008,860, 182,096,812,024,0098,024,088 
192,192,048,049,192,192,048,048,192,182,192,060,824 ‚924 ‚824,888 
851,851,204 ,2084 ‚051 ‚851,284 ,204 ,009 ,,008 ,924 ‚088 ‚0808 ‚824 ‚808,088 
008,0080,008,090,008,192,182,8698,2498,248,249,248,248,248,248,248 
008,888 ‚888 ‚808 ‚255 ‚255 ,255 ,255,195,153,159,195,2493,153,195,255 
009,800 ,000,024,090,008,008,0088,192,192,192,192,192,192,192,192 
204 ‚284,851 ,851 ,204 ‚2084 ‚851,051 ,003,083,083,803,083,803,883,083 
888,9098,182,182,102,062,912,128,126,0086,812,024,048,096, 126,098 
203,003,0083,003,8903,003,083,083,024 ‚824 ‚824 ‚831 ,831 ‚824 ‚024 ‚924 
289,000,9098,888,815,015,915,015,024 ,824 ,924,031 ,831,0808,988,898 
800,008,0008,248,248 ,024 ,024 ‚024,000 ‚908,080 ,800 ,888 ,8088 ,255,,255 
0089,0800,008,031,831,9824,024 ‚024 ,824 ‚024 ‚924 ‚255 ,255,088,008,008 
008 ‚8088 ‚888 ‚255,255 ,024 ‚024 ‚824 ‚0924 ‚024 ‚024 ‚248 ‚248 ‚824 ‚824 ,024 
192,192,192,192,192,192,192,192,224 ,224 ‚224 ‚224 ‚224 ‚224 ‚224,224 
897 ‚007,087 ,807 ,007 ,09987 ‚807 ,887 ,255,255,098 ‚98088 ‚808,000 ,8008,088 
255,255,255,908,008,0098,008,008 ,009,008,088,088 ‚898 ,255 ,255,255 
824 ‚,866,1082,102,192,102,069,008,008 ‚0089 ‚888,889 ‚249 ,2498 ,2498 ,248 
815,015,9015,915,0008,008,0808,088,824,0824 ,024 ‚248,248 ,808 ‚0988 ,888 
249,240 ,2498,240,990,9009,009,009,248,248,248,248,815,8015,815,815 
153,255,153,153,153,153,193,255,255,255,195,249,193,153,193,255 
855,159,159,131,153,153,131,255,255,255,195,159,139,139,195,255 
255,249,249,193,153,153,193,255,255,255,195,153,129,159,195,255 
255,241 ,231,193,231 ,231 ,231 ,2855,255,255,193,153,153,193,249,131 
255,159,159,131,153,153,153,255,255,231 ,2855,199,231 ,231,195,255 
e55,249,255,249,249,2493,249,195,255,159,159,147,135,147,153,255 
255,199,231 ,231,231 ,231,195,255,255,255,153,128,128,198,156,235 
2e55,255,1931,153,153,153,153,255,255,255,195,153,153,153,195,255 
255,255,131,153,153,131,159,159,255,255,193,153,153,193,249,249 
855 ,255,131,153,159,159,159,255,255,255,193,159,195,249,131,255 
255,231,129,231,231,231,241,255,255,255,153,153,153,153,193,255 
255,255,153,153,153,195,231,255,255,255,156,148,128,193,201 ,255 
255 ,255,153,195,231,195,153,255,255,255,129,243,231 ,287,129,255 
e55,255,153,153,153,193,243,135,153,195,153,153,153,153,195,255 
255,255,129,243,231 ,207,1293,255,936,195,153,129,153,153,153,255 
255,231,195,129,231 ,231 ,231,231,255,239,207,128,128,287 ,239,255 
255,255,255,255,255,255,255,255,255,231 ,231 ,231 ‚255,255 ,231 ,255 
153,153,153,255,255 ,255,255,255,195,159,199,1497,199,243,135,255 
231,193,159,195,249,131 ,231 ,255,157,153,243,231 ,287,153,185,255 
195,153,195,199,152,153,192,255,249,243,231 ,255,255,255,255,255 
243,231 ,207,207,207,231,243,255,207,231,243,243,243,231 ,207,255 
255,153,195,008,195,153,253,255,195,153,153,1497,153,153,131,159 
855,255 ,255,255,255,231 ,231 ,207 ‚255,255, ,2855, 129,235 ,855 ,255 ,255 
855,255 ,255,255,255,231 ,231,255,255,255,255,129,255 ,255,255 ,235 
195,153,145,137,153,153,195,255,231,231,199,231 ,231 ,231,129,255 
195,153,249,243,207,153,129,255,195,153,249,227,249,153,195,255 
249,241 ,225,153,128,249,249,255,129,159,131,249,249,153,195,255 
195,153,159,131,153,153,195,255,129,153,243,231 ,231 ,231 ,231,255 
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en ; 


Rn 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 

REM 


195,153,153,195,153,153,195,255,195,153,153,193,243,153,195,855 
153,255,195,153,153,153,195,255,281 ,255,195,249,193,153,193,255 
255,255,231.,255,255,231 ,231 ,287 ,255,255, 129,255, 129,255 ,255 ,255 
255 ,255,231 ,255,255,231 ,255,255,195,153,249,243 ,231 ‚255,231 ,255 
e55,231,231,129,231 ,231 ,255,255,231,195,153,129,153,153,153,255 
131,153,153,131,153,153,131,255,195,153,159,159,139,133,195,255 
135,147,153,153,153,147,135,255,129,159,159,135,159,159,123,255 
129,159,159,135,159,159,159,255,195,153,159,195,153,153,195,253 
153,153,153,129,153,153,153,255,195,231,231 ,231 ,231 ,231,195,855 
225,243,243,243,243,147,199,255,153,1497,135,143,135,197,153,855 
159,159,159,159,159,159,129,255,156,136,129,148, 156,156, 156 ,255 
153,137,129,129,1495,153,153,255,195,153,153,153,153,153,195,855 
131,153,153,131,159,159,159,255,195,153,153,153,153,195,241 ,255 
131,153,153,131,135,147,153,255,195,153,159,195,249,153,195,2535 
123,231 ,231 ,231,231 ,231,231,255,153,153,153,153,153,153,195,855 
153,153,153,153,153,195,231,255,156,158, 156,148, 128,138, 158,255 
153,153,195,231,195,153,153,255,129,249,243,231 ,207,159,129,255 
153,153,153,195,231 ,231 ,231,255,195,153,249,243,231 ‚255 ,231 ,855 
063,063,207 ,207 ,063,063,297,207,153,153,153,195 ,231 ,231 ,231 ,255 
204 ‚284 ‚0851 ,051,204 ‚204 ‚051,851 ,255,,235 ‚231 ,255 ,235 ‚231 ‚235 ,255 
855,255 ,255,255,255,153,153,195,015,815,015,915,815,815,915,015 
255 ,255,255,255,088,009,009,0008,060, 102,096 ‚860 ‚806, 182,060 ,808 
855 ,255,255,231 ,255,255,255,255,9683,063,063,063,063,863,063,063 
851,051,284,204 ,951 ,051 ,204 ‚204 ‚252 ‚252 ‚232 ‚252 ‚252 ‚es2 ‚252 ‚252 
e55,255,153,153,153,193,243,135,129,249,243,231 ,297,159,129,255 
232,252 ‚252 ‚252 ‚2352 ‚252 ‚252 ‚252 ‚231 ‚231 ‚231 ‚224 ‚224 ‚231 ,231 ,231 
855 ,255,255,255,249,248,248,248,231 ,231 ,231 ,224 ‚224 ‚255,255 ,255 
255,255 ,255,007 ,087 ‚231 ,231 ,231 ‚255,255 ,233 ‚235 ,255 ‚255 ‚000 ‚000 
255 ,255,255 ,224 ‚224 ‚231,231 ,231 ‚231,231 ‚231 ‚000 ‚080 ‚255 ‚255 ‚255 
855 ,255,253,900,008 ,231 ,231 ‚231 ‚231,231 ,231 ,087 ‚807 ‚231 ,231 ,231 
063,063,063,863,063,063,863,9863,931 ,831,831 ,831 ,831,831 ‚831 ,831 
248,248 ,248,248,249,248,249,248,000 ‚808 ‚255 ,255 ‚255 ‚255 ‚255 ‚255 
088,980 ,008 ,255,255,255 ,255 ,255,255,255,255 ,255,,255,908 ,800 ,088 
231,1893,153,153,153,153,195,255,255 ,255 ,255 ,255,815,015,015,015 
@249,248,248,249,255,255,255,255,231 ,231 ‚231,997 ,907 ,255 ,255 ,255 
815,015,083,858,094 ‚084 ‚084,084 ‚094 ‚844 ‚878,082 ,865 ,078,875,858 
33332 ,31122,33959,35115,24819,31557.,.31818 ‚29831 

13634 ,10855, 18924 ‚21298 ,51646 ‚54596 ‚46358 ‚42945 


REM FEHLERF INDER 


REM 


PRINT :PRINT tAA=366881E2=86 


FOR K=1 TO 161 AA=AA+2SS:EA=AAN+2SSIEZ=EZ+HIBILZ=EZ+HISIREAD CS:ıG0SUB 
SBOBLNEXT 


ENO 


S=8:FOR I=AA TO EAtS=S+PEEK (IYıNEKXT 
IF S<>CS THEN PRINT "FEHLER IN ZEILE *FEZF "BIS" IL2 
RETURN 


Listing $: Autostart-Erzeuger Y 


REM aa ER KKKERRERELERKKEKRRKKEKKEK ER K 
REM %*% AUTOSTART-LADER FUER GRAFIC-BASIC x+x* 
REM #*#x* 3% 
REM x*#%* VON FRANK RIEMENSCHNE IDER %% 
REM Kara KKEKKKE IKK EIKE KKK E K 
REM 


FOR 1=828 TO 378:READ AtS=S+A:POKE I,A:NEKXT 

IF S<>13393 THEN PRINT "L2DOWNIFEHLER IN DATAS 
I"ıEND 

POKE 778,868:POKE 771,883 

SYS S7812"LADER G-BASIC",8 

POKE 193,882:POKE 194,093 
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POKE 174 ,211:POKE 175,883 
syYS 62954 
POKE 778,131:POKE 771,164:NEW 
DATA 169,143,168,003,9832,030,171,169,081,162 
DATA 0898,169,081,032,186,255,169,814,162,181 
DATA 168,003,932,189,255,169,888,133,157,832 
DATA 213,255,169,914,162,196,168,903,832,189 
DATA 255,169,998,032,213,255,169,131,141,882 
DATA 883,169,164,141,003,9093,169,078,141,119 
DATA 802,169,869,141,128,002,169,987,141,121 
DATA 892,169,913,141,122,9002,169,005,133,198 
DATA 0876,9000,196,917,017,071,082,065,9078,073 
DATA 967 ,945,966 ,0965,083,973,957,032,986 ,832 
DATA 0859,946 ,9059,932,087,073,082,0658,932,071 
DATA 069,976 ,865,068,969,078,932,846,0945 ,846 
DATA 0209,071,045,966,865,083,973,967,932,084 
DATA 9869,973,0976,932,949,008,971,045,066,965 
DATA 883,973,067,932,884,069,073,9076,932,059 
DATA 0888,0989,000,098,808 ,000 ,0088,000,098,088 


Listing 6: Anderungen für Datasette Y 


17 IF S<>13296 THEN PRINT "I2DOWNIFEHLER IN DATAS 
I":END 

92 SYS 57812"LADER G-BASIC",I 

183 DATA 8981,169,981,032,186,255,169,914,162,181 


Listing 7: Zeichensatzgenerator Y 


REM sera KR RE KK KK eK 
REM ##+ PROGRAMM ZUR DEFINITON EINES #+ 
REM *#* INDIVIDUELLEN ZEICHENSATZES #* 
REM $2 MIT GRAF IC - BASS TC 33 
REM #+x% *%* 
REM #* VON FRANK RIEMENSCHNEIDER #* 
REM #2 RK RER KK ER RER KIEFER 
REM 

REM #+#* MASCHINENPROGRAMM LESEN +#%* 
REM 

FOR1=828T0838:READA:POKEI ,A:TNEXKT 

DATA 165,297 ,281,88,2098,258,169,1,133,204,96 
ZCOPY:ZIN 

REM 

REM z#* ZEICHEN EINGEBEN #%*%# 

REM 

PRINT" TCLR]I":GOSUBS8B8 

LPRI 8,12,"ZEICHEN: "z:POKE284,8 
POKE211 ,21:POKE214,8:5Y558732 

GETA$: IFA$=* "THEN228 
SYS328: IFA$= "+" THEN?48 
PRINTAS$S:A=PEEK ( 1365) :GOSUBS28 

%=B:Y=d 

REM 

REM #*+* CURSOR SETZEN ##% 

REM 
Kl=eX+13:Y1l=-Y+12:POKE211,X1:POKE214,Y1:5YS58732:POKE2984,8 
REM 
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2683 
264 
279 
288 
281 
282 
283 
298 
390 
318 
328 
sei 
322 
323 
338 
348 
358 
3608 
361 
382 
363 
378 
388 
398 
391 
392 
393 
488 
418 
420 
421 
422 
423 
438 
449 
441 
442 
443 
458 
468 
461 
482 
463 
470 
480 
438 
431 
432 
4933 
598 
510 
528 
s21 
s22 
523 
539 
548 


REM ##2* EINGABESCHLEIFE ##% 
REM 

GETIS: IFI$=""THEN278 

SYS828: IFIS<Y"LRIGHT]*THEN329 
REM 

REM ##+#* CURSOR RECHTS ##% 

REM 

IFR<7THENX=K+1:G0T0269 
IFY<7THENS=8: Y=Y+1:G0T0268 
G0T0259 

IFIS<S)"TLEFTI"THEN3S8 

REM 

REM #=2* CURSOR LINKS ##* 

REM 

IFK>BOTHENX=X-1:G0T0268 
IFYIBOTHENY=Y-1:%=7:G0T0268 
G60T0258 

IF1%< >* [DOWN] " THEN399 

REM 

REM #*%* CURSOR RUNTER ##%# 

REM 

IFY<7THENY=Y+1 

G0TO258 

IFIS<)"LUP]"THENA28 

REM 

REM ###* CURSOR RAUF ##%* 

REM 

IFY>BTHENY=Y-1 

GOTO2688 

IFIS<>"ICLRI" THEN448 

REM 

REM *+%* ARBEITSFELD LOESCHEN ##* 
REM 

GOSUBS88:G0T0258 

IFI1$< >" [HOME 1" THEN468 

REM 

REM *** CURSOR HOME xx*%* 

REM 

G60T0259 

IFIS< >JCHR$( 148) THENA98 

REM 

REM ##+* ZEICHEN EINFUEGEN ### 
REM 
FORU=1824+Y1x48+29T019824+Y1x48+X1STEP-1 
POKEU ,PEEK (U-1):NEXT:POKE 1924 +Y1#248+X1 ,45:G0T0268 
IFIS< >CHR$(28) THENS2O 

REM 

REM ##%* ZEICHEN LOESCHEN xxx 
REM 

FORU= 19824 +Y1x48+X1T01824+Y1x48+28 
POKEU ,PEEK (U+1 ) ıNEXTIPOKE 1924 +Y1x48+28,46:G0T0268 
IFIS<C)"#"THENS48 

REM 

REM x2x STERN SETZEN x##x# 

REM 

LPRI Yi1,X1,"x":60T0298 

IFI$< >". "THENSSB 
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REM 

REM ##%* PUNKT SETZEN ### 

REM 

LPRI Y1,%1,".":G0T0239 

IF I$< >JCHR$< 13) THEN268 

REM 

REM #+#* ARBEITSFELD FERTIG ##*%* 

REM 

GOSUBE88:GOTO ISO 

REM 

REM #3x ARBEITSFELD AUFBAUEN x*+* 

REM 

LPRI 11,12," ——— " 
FORGQ=12T0O1S:ıLPRI Q,12,"l.r....0.. 1"3NEXTQ 
LPRI 28,12," 1 ":RETURN 

REM 

REM ### ZEICHENBYTES LESEN ##%* 

REM 

FORU=-8TO7:B=PEEK (29848+8+A+U) 
FORU1=7TOBSTEP-1:B1= BAND2tUI 
IFBi=-2tUITHEN:LPRI 12+U,13+7-Ul,"2":1G0T0678 
LPRI 12+U,13+7-U1,"." 

NEXTU1 „U:RETURN 

REM 

REM #*3%* ARBEITSFELD AUSLESEN ##%* 

REM 

BA=2948+8#A- 

FORU=8T07 :D=B:FORU1=7TOBSTEP-1 

IFPEEK (1517 +Ux48+<7-U1)3)=42THEND=D+2 tU1 
NEXTU1:POKEBA+U,D:NEXTU:RETURN 

REM 

REM ###+ PROGRAMM BEENDEN x#+%* 

REM 

PRINT"TCLRITDOWNIZEICHENSATZ SPEICHERN (J/ND" 
GETAS$: IFAS< >" J"ANDASC > "N"THEN?SDO 
IFA$="N"THENS2B8 

INPUT" L2DOUNIJIFILENAME :";F$ 

INPUT" T2EDOWNIAUSGEBEGERAET (1=KASSETTE ‚8=FLOPPY?ı"7G 
IFG< > IANDG< >STHENPR INT" L4UP 1" :GOTO738 
ZSAVE F$,G 

PRINT" [2DOUN]J "END 


Aka. EEE rare % 
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Computergrafik 
für Bilanzen 


Zwei unterschiedlich große Tor- 
tenstücke erkennt man auf einen 
Blick. Bei Zahlen muß man schon 
genauer hinschauen. Im Lehrbuch 
wie in der Konzernbilanz ist des- 
halb die Tortengrafik so beliebt. 
Das Programm „Business Grafik“ 
zeichnet Tortendiagramme und 
andere Schaubilder, die das 
Haushaltsbudget wie die Jahresbi- 
lanz eines Multis aussehen lassen. 
„Business Grafik" ist für den C64 
mit Simon's Basic geschrieben. 
Sechs verschiedene Darstellungs- 
formen stehen zur Verfügung (sie- 
he Abbildungen): 


Balken + — maximal 24 Werte 


Balken 3D maximal 12 Werte 
Pareto % maximal 12 Werte 
Münzen maximal 6Werte 
Linien +— maximal 24 Werte 
Tortengrafik maximal 6 Werte 


Alle Diagramme können als Hard- 
copy ausgedruckt werden. 

Die Druckroutinen wurden für 
den EPSON RX 80 mit Görlitz-In- 
terface und für den STAR SG-10C 
geschrieben, können jedoch 
leicht für andere Drucker — Inter- 
faces — angepaßt werden (Unter- 
programm 3940 — 4300). 

Beim Start des Programms fordert 
eine Laufschrift auf, über die 
Funktionstasten eine Darstellungs- 
art auszuwählen. 


Mittelwert und 
Prozente 


Im folgenden Unterprogramm 
„Eingaberoutine" werden die An- 
zahl der Posten, der Titel der Gra- 
fik, die Werte und Namen der Po- 
sten (Werte maximal fünfstellig), 
die Postendimension (DM, Stk., 
etc) sowie mögliche Anzeigen 
des Mittelwertes, der Summe und 
des Prozentgehaltes abgefragt. In 
der Werteauflistung kann ein 
Kommentar vorgegeben werden. 
Dann wird die Anzahl der ge- 
wünschten Ausdrucke abgefragt. 
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Bilanz ohne Bilder ist 
nicht denkbar. Doch 
früher mußten Grafiker 
zeichnen, was heute 
der Homecomputer 
schafft. 


Bild ] 


Nach Bestätigung der Kontrollab- 
frage: „Drucker ein — Papier auf 
Blattanfang” wird das Diagramm 
auf dem Bildschirm gezeichnet, 
wobei die Grafik sehr flexibel an 
eine optimale Größe, abhängig 
von der Werteanzahl, angepaßt 
wird. Natürlich wird auch die 
Werteskala umgerechnet und an- 
geglichen. 


Bei den Unterprogrammen „Bal- 
ken 3D" und „DM-Münzen“, die 


JA FE MA AP MA JU JU AU SE OK NO DE 
DM 


MITTELN.: 
SUMME : 


Bild 2 


4791 
57493 DM 


Bild 3 


Bild 4 


Bild’ 5 


N 


PFNDOLUNNSNDWD 


AUSGABEN JUNI 1985 


HE MI LE AN KL AU SO KU GE TE ST WA 
SUMME: 5236 DM 
MITTELW.: 436 DM 


PREISABGABE OBJEKT B 


> a 2. 37 
MITTELW.: 138833 DM 


5 3 
ABECDEFGHIJKLMNOPQRSTUUHWX 
MITTELW.: 8 MM 


Br VORELSMPUTERHOR.D 20 M 


vorwiegend für positive Werte ge- 
dacht sind, werden negative Wer- 
te mit einem reversen Minus in 
der Grafik gekennzeichnet. Beim 
Balken-Diagramm wird zusätzlich 
der Paint-Befehl (Schwärzung der 
seitlichen Balkenseite) bei negati- 
ven Werten unterdrückt, Das 
Münzdiagramm baut sich durch 
die Anzahl der Arc-Befehle als 
einzige Grafik zeitintensiv auf. 
Hier ist etwas Geduld erforder- 
lich. 


Tortenstücke statt 
Zahlen 


Bei der Tortengrafik wird der 
Max-Wert angezeigt, und im Dia- 
gramm der „Belag“ des Torten- 
stückes durch den Paint-Befehi 
ausgefüllt. Sind mehrere Max- 
Werte vorhanden, werden sie nur 
ausgefüllt, wenn sie nicht direkt 
angrenzend nebeneinander |lie- 
gen. Torten-Grafiken mit mehr als 
fünf oder sechs Werten sind un- 
übersichtlich. Daher wurde die- 
ses Diagramm auf maximal sechs 
Werte beschränkt. Diese Grafik- 
Form eignet sich besonders zur 
Darstellung von Teilmengen (Ver- 
gleich mit Gesamtmenge). 

Die Pareto-Darstellung (schritt- 
weise Kumulation der Werte vom 
größten zum kleinsten Wert) ist 
vor allem für die Darstellung von 
Schwerpunkten gedacht, wie zum 
Beispiel Fehleranteile, Zeiträu- 
me etc. (ABC-Analyse und Teil- 
mengen). 

Ist die Grafik zufriedenstellend 
ausgefallen, wird mit der Fl-Taste 
der Druckvorgang ausgelöst, Es 
wird eine Hardcopy des Bild- 
schirms erstellt und im Anschluß 
daran eine Werteauflistung mit al- 
len Parametern ausgegeben. Der 
Prozentanteil der einzelnen Po- 
sten wird wahlweise angezeigt. 
Ebenso kann ein Kommentar 
(Überschrift) vorangestellt wer- 
den. Nach Druckende wird ein 
Papiervorschub auf den nächsten 
Blattanfang ausgelöst. Je nach 
Wahl werden weitere Kopien der 
gleichen Grafik ausgedruckt. 


Um das Listing übersichtlich zu$ 
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gestalten, 
(Unterprogramme) und Strukturie- 
rung Wert gelegt. So wurden zum 


Beispiel 


Next-Schleifen durch Einrücken 
der Zeilen ähnlich wie in Pascal- 
Programmen optisch sichtbar ge- 
macht. Das Einrücken läßt sich in 
Basic nur mit einem Trick erzielen. 
Normalerweise entfernt der Bild- 
schirmeditor nämlich alle führen- 
den Leerzeichen. Um ihn zu über- 
listen, wird am Anfang der Zeile 
ein geshiftetes Grafikzeichen ein- 
gegeben, 
Alle folgenden Leerzeichen wer- 
den jetzt akzeptiert. 

(Ernst Frank) 


t1® 
128 
130 
140 
158 
188 


ı70 
188 
190 


210 


220 


230 


248 


©se 


270 


288 
©90 


a28 
318 


328 
330 
349 
3so 
368 
378 
338 
398 
400 
418 


420 
428 
448 


450 


468 


478 


wurde auf Blockbildung 


REM-Zeilen und For- 


zum Beispiel [SHIFT 2). 


Bild 6 


PRINT "ICLR,BLK]"ıPOKE 32280, 14:POKE 
s3281,7 

REM BUSINESS - GRAFIK 

REM BY ERNST FRArMK 

REM JOSEF SCHUCHARDTSTRIS 

REM 6419 BURGHAUN 4 

REM bAHL - MENLE 

CENTRE *[RVSIBUSINESS-GRAFI 
K IOFF)* 


PRINT :PRINT Prim 

PRINT ıPRINT 

PRINT "ESSPACES,RVSI 1 OFF) 
INFORMUTIONEN ZUM PROGRAMM * 

PRINT :PRINT "ISSPACES,RVSI Fi 
BALKEN +- VARIABEL t«ii1-24)* 

PRINT :PRINT *tSSPACES,RVSI F3 toFF) 
BALKEN 30 VARIABEL !cı1-12)* 

PRINT :PRINT *tSSPACES,RVS) ES tOFFI 
PNRETO ZIBSPACESIVARIABEL IKi-12)7* 
PRINT tPRINT *tSSPACES,RVS]I F? tOFFI DM 
MIENZEN-VARTABEL !tI- 6)* 

PRINT :PRINT "[SSPACES,RVS]I F2 tOFFı] 
LINIEN + - VARTABELICI-24>* 

PRINT SPRINT "ISSPACES,RVS) F4 LOFFI 
TORTEN - GRAFIKISSPACESICI- 67" 

PRINT :PRINT *tSSPACES,RVS] E tOFF)I ENDE 
DES PROGRAMMSLBSPACESI" PRINT 

L®$=" [HOME „2200.LNJ "tES=">>>>>>> BITTE 
TASTE DRUECKEN I <ccccce » 

PRINT L$I 

FOR L=i TO LEN (ESI:PRINT "ERVSI"IMID® 
“E8,L,1)I1FOR 1=1 TO SıNEKT IINEXT Li 

PRINT *tuP)* 

GET Xsılm Msc>** THEN 320 

FOR L=1 TO LEN (E$S)tPRINT MIDS (E8,L,1>}t 

FOR I=1 TO S:HEXT I:iNEXT L:PRINT "tuPJ": 

00To 278 
IF Xu" ı® 
IF KS=CHR® 
IF KSıcHhrs# 
IF NE=CHR8 
IF KS.CcHRs 
IF KS-CHR® 
IF NS-CHRs 
IF XS='E* 

G0T0 100 

PRINT tPRINT :CENTRE 

Enno 

REM INFORMATIONEN 

PRINT *"tCLRI* 

CEITRE "IRVSI INFORMATIONEN 
IOFF1":PRINT :PRINT 

PRINT *DAS VORLIEGENDE PROGRAMM STELLT 
EINIGE * 

PRINT * DER GEBRAEUCHL ICHSTEN GRAF ISCHEN 
DAR-" 

PRINT * STELLUNGSFORMEN ZUR VERFUEGUNG. * 


CENTRE "WAHL-NENUE* 


tnFfF) 


THEN 420 
<133> THEN eBo 
134) THEN 670 
(135> THEN 19829 
<136) THEN 1198 
137) THEN 809 
<139> THEN 14698 

THEN 418 

"PROGRAMM 


=" ENDE 143 
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2638 


4308 


438 


soo 


5ıo 
see 


530 


549 


ss 
ss 


s78 
s88 
598 
so 
618 
s2a8 
630 
sa“ 
so 
6c6s 
rd 
see 
ss 
708 
7ı8 
’28 
738 
748 
758 
760 
??70o 
?88 
790 
se 
8ı0 


s28 


E FUER C64 
TKe 


B 
SUME: 1261 STK. 


PRINT "NACH AUSWAHL DER DARSTELLUNGSART 
UND *® 

PRINT * EINGABE DER WERTE UND DEREN 
BEZEICH-* 

PRINT “ NUNGEN «POSTEN? WIRD DAS 
DIAGRAMM* 

PRINT * ORIGINAL AUF DEM BILDSCHIRM DAR-" 

PRINT * GESTELLT, DABEI WIRD DIE GROESSE 
. 


PRINT * AUTOMATISCH AUF DIE AtzaAHt. DER 
POSTEN* 


PRINT * ANGEPASST UND DIE SKALIERUNG ENT- 
” 


PRINT * SPRECHEND UMGERECHNET,” 

PRINT "EINE ODER MEHRERE HARDCOPYS 
KOENNEN * 

PRINT " DURCH DRUECKEN DER I[RVSI Fi toffı 
-TASTE ERSTELLT" 
PRINT * WERDEN, 
DIE* 

PRINT " GRAFISCHE DARSTELLUNG ANGEFUEGT 
UND* 
PRINT 
PRINT 
PRINT * IRVSISIMORS BASICLOFFI IST 
VORAUSSETZUNG I * 

PRINT :PRINT * IRVSIORLUCKER ttOFF) EPSON 
MIT GOERLITZ-INTERFACE * 

CENTRE "VIEL SPASS MIT DEM PROGRAMM 1* 

GET KSılF X8=*"" THEN 648 

60170 1988 

END 

REM BALKEN 3D VARIABEL 

PRINT "ICLRI"TLINPUT "WIEVIELE POSTEN 
(maX.i2) "BA 

IF BAtI OR BA>I2 THEN PRINT *tCeM 1) 
MIN.I - MAX.12 WERTE ! tELK)"TIPAUSE 2: 
G60T0 680 

sosuß 1520 

GosuB 1749 

SoSuUB 1869 

GET ABtIF As=** THEN 739 

IF ASCICHRSE (133) THEN GOTO 738 

IF AS=CHRS (133) THEN PRINT * AUSDRUCK 
NR. ITESPACESIIN ARBEIT !":PRINT :1GOSUB 

3930:005UB 4828:60T0 778 

PRINT * AUSDRUCK NR.":Velr® 

PRINT ı100SUB 3938:G08SUB 4820 

Vrv+i 

IF VAL tC#)>V THEN GOTO 760 

PRINT * AUSDRUCK BEENDET I*:END 

REM BALKEN- + LINIEN-DIAGRAMM + - VARIABE 

L 

PRINT "ECLRI*: INPUT 
(MAK.24) "ıBA 

IF BA<I OR BA>24 THEN PRINT "tCEM 1) 
MIN.I - MX.24 WERTE ! LBLKI":PAUSE 2ı 


EINE LERTELISTE WIRD AN 


* EIN BLATTVORSCHUB VORGENOMMEN. ": 


IN ARBEIT !*t 


"WIEVIELE POSTEN 


coTOo 810 

sosue 1328 

REM STAPELGROESSE OPTIMIEREN 

0-0: 7T=-E00000:55=1 

FOR I=1 TO 8A 

IF 55-1 THEN G+-P< 1>ıT+-P<19:55*2 

IF SGN {PCI))=-1 THEN LET PCTI=Pti)s-1 
IF PCIY<cT THEN LET T=Pci) 

IF P<1>>G THEN LET 0*Pc<1) 

NEXT I:IREM G= GROESSTER WERT P 

FOR 1-1 TO BAIN{TII=INT <BB«BB<II/GI NEXT 
I:REM MASS-STAB BALKEN OPTIMIEREN 

F-itt (6/5) 

GOSUB 3998 

GET AsılF As=** THEN 358 

IF AS >CHR# (133) THEN GOTO 958 

IF AS=CHR® (133) THEN PRINT * AUSDRUCK 
NA. IT2SPACESIIN ARBEIT 1*:PRINT :GOSUB 
3939:G0SUB 4178:1G0T0 299 

PRINT ” AUSDRUCK NR." V+13* IN ARBEIT !*: 
PRINT tG0SUB 3930:005UB 4170 

Vevei 

IF VAL tC#)>V THEN GOTO 989 

PRINT * AUSDRUCK BEENDET !*"tEND 

REM PARETO (%) VARIABEL 

PRINT "ICLRI"T:INPUT "WIEVIELE POSTEN 
“MAK.i2) "BA 

IF BACI OR BA>IE THEN PRINT *CCBM 1) 
MIN.I =» MAX.I2 LERTE ! LBLK)*IPAUSE 2ı 
GOTO 1938 

00SUB 1528 

PRINT PRINT *IRVSI SORTIER - ROUTINE 
LAEUFFT !1 [LOFF]"ıGOSUB 4488 

6=5U 

FOR I-1 TO BA:INCII=INT (120sVAL (BBSCI))/ 

GI:NEXT I 

F+-18:00SUB 2369 

GET ASt IF AS=** THEN 1120 

IF AS<>CHRE <133) THEN GOTO 1128 

IF AS=CHRS (133) THEN PRINT * AUSDRUCK 
NR. IT2SPACESIIN ARBEIT I*:PRINT :GOSUB 

3930:00SUB 4820:00T0 1168 

PRINT * AUSDRUCK NR.*"#V+13* IM ARBEIT I" 
PRINT :1G0SUB 3938:60SUE 4828 

Veav+i 

IF VAL Ca) WW THEN GOTO 1158 

PRINT " AUSDRUCK BEENDET I*ıEND 

REM DM MIENZEN-VARIABEL 

PRINT "LCLRI*"T INPUT "WIEVIELE POSTEN 
<MAX.B) *"ıBA 

IF BAti OR BA>?S THEN PRINT "ICBM 11 MIN. I 
- MAK.G MERTE | LBLKI*:PAUSE 2:60T0 1288 

cosuB 1520 

REM STAPELGROESSE OPTIMIEREN 
6=8:7=-288200:55=1 

FOR I=1 TO BA 

IF SS=1 THEN G=PtiY:T=-Pt1):55=2 

IF PCI3<£T THEN LET T-P<1) 

IF PCiY>G THEN LET G=PCI) 

NEXT I:REM G= GROESSTER WERT P 

FOR I=1 TO BASNCII=INT <20=Pt1>/G):NEXT 
IiREM MASSSTAB BALKEN OPTIMIEREN 

F«-INT (0/5) 

GoSUB 2740 

GET AsılF AS="" THEN 1330 

IF ASC>CHRS <133) THEN GOTO 1338 

IF AS=CHRS <133> THEN PRINT * AUSDRUCK 
NR. I12SPACESIIN ARBEIT !*:PRINT :G60SUB 
3330:1605UB 4028:G0T0 1378 

PRINT ” AUSDRUCK NR."ıV+17* IN ARBEIT 1": 

PRINT :GO5UB 3338:005UB 4020 

YVmve+i 

IF VAL <C#>)>V THEN GOTO 1369 

PRINT ”" AUSDRUCK BEENDET !*ıEND 

REM TORTEN-DARSTELLUNG 

PRINT "ICLRI*: INPUT "WIEVIELE POSTEN 
<mAX.E> "BA 

IF BA<I OR BA>&E THEN PRINT "LCREM 1) MIN.I 
- MAX.S WERTE ! IBLKI"IPAUSE 2:1G0T0 1418 

GOSUB 1920:60SUB 17498:65-STR® (6) 

GoSUB 3888 

GET ArtiIF As=** THEN 1458 

IF AS<>CHR& <133)> THEN G0OTD 1458 

IF AS=CHR® (133) THEN PRINT " AUSDRUCK 
NR. II2SPACESIIN ARBEIT !*:ıPRINT :GOSUB 
3328:G05U8 4178:G0T0 1490 
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PRINT " AUSDRUCK NR."sV+13" IN ARBEIT I*: 

PRINT 160SUB 3939:GC0SUB 4170 

Ymvei 

IF VAL (C$>>V THEN GOTO 1488 

PRINT * AUSDRUCK BEENDET !*iEND 

REM EINGABE -ROUTINE 

DIM BB<BA),Zu(BA),N(BA),PiBA>,B(BA>, 

BBELEA),.JECBAYLA=I2ıH=-IBB:HI"1551C=B1X=37 
PRINT : INPUT * WELCHER TITEL FUER GRAFIK 
tI2spAcES]I’ıT$ 

PRINT :INPUT *POSTEN-DIMENSION 
(MAKM.A4STELLEN !)*iPsı IF LEN (PS)>4 THEN 
1550 

IF LEN (Ps><A THEN PS=PS+CHRs (32316070 
1555 

FOR I=1 TO BA:O=O+I:iPRINT 0*."3 

INPUT "WERT "IBBCIHI:PRINT *LUP)* SPCLIEIY 
INPUT "POSTEN-NAME "ı285C1> 

IF LEN (Z#C1)>)c2 THEN ZESCI)=CHRS (327*+ 
Zst 1>:1G0or0 1599 

BBS{I)*STR#$ (BB<1)>) 

IF LEN (BBStI>><10 THEN BBSCI)=CHRE (32)+ 
BBS(I):ıG0TO 1597 

S-S+BB(1) 

SU«SU+ABS <BB{1)) 

PtI>=ABS (BBCL)) 

NEXT I 

INPUT *"MITTELLERT IN GRAFIK ZEIGEN (J/mND)*® 
’ıF# 

IF FS=*J* THEN LET MI-INT (8/BA):MS" 
*MITTELU. 17+STRS (MI)+" "+P2 

INPUT "SUMME IN GRAFIK ZEIGEN (J/N) "08 
IF GS="J* THEN S9="SuUmEt"+STRS (57+" "+ 

rs 

IHPUT *% ERRECHNEN +IN TAB.DRUCK. (J/ND* 7 


JI=INT ctJ12108/8U)+.5)1J8-STR# (J1) 

IF LEN (J2)63 THEN JS=CHRS (32)+J2:G0T0 
1636 

PEISBER: ; 

NEXT I 

INPUT "KOMMENTAR ZUR TABELLE (J/N) 
ISHIFT-SPACE 1?" 18% 

IF BS="j*" THEN INPUT *BITTE KOMMENTAR !1* 
sn» 

PRINT :INPUT "WIEVIEL AUSDRUCKE *ıc$ 
PRINT "ELIHTIORUCKER EIN ? PAPIER AUF 
BLATTANFANG ?"i INPUT "L2SPACESICJ/ND 
[BLKI":OS 

IF Qs=*J* THEN 1728 

00T0 1880 

PRINT *"LCLRI*:PRINT !PRINT *LSSPACES)I 
GEWIENSCHTE AUSDRUCKE t"iPRINT RETURN 
EnD 

REM MAX.KLEINSTER + GROESSTER WERT 

0-0: T-20000:155=1 

FOR 1-1 TO BA 

iF SS=1 THEN G=P(I)tT=PıI>:55=2 

IF P<1I<T THEN LET T-P<1> 

IF Pt1>>G THEN LET G=P(1) 

NEXT I:REM G= GROESSTER WERT P 

FOR I=.1 TO BAENCTI=INT CIEBEPEII/GI:NEHT 
I:REM MASSSTAB BALKEN OPTIMIEREN 

REM MASSTAB: Y-ACHSE AUSRECHNEN 

F-INT (6/1085 

RETURN 

end 

REM BALKEND IAGRAMM ZEICHNEN 

HIRES 8,19 

TEXT 47,1, "ICTRL A)*’+TS,1,2,10 

REC X+13,4H-148,<BAs21>+13,H-19,1 

LINE #+13,H,%+11,H,1 

FOR 1-12 TO 128 STEP i2 

LINE M+13,H-1,X#+11,.H-1,1 

NEXT I 

TEXT 8,H-3,"[5SPACESIO",1,0,8 

FOR 1=15 TO 123 STEP I2:WeWHFIAS=STRE (WI 
IF LEN tA$)<6 THEN AS=CHRS (32 )+AS1ıG0T0 
2039 

TEXT 8,H-1,"tCTRL AJ*+AB,1,8,8 

NEXT It TEXT 8,H-148,"ICTRL A] *+P8,1,0,8 
FOR Q=-X+19 TO <BA-IY#21«X+19 STEP 21 

Je J+lIXS2LEFTE (283(J),2> 

TEXT Q,H+18,"ICTRL AJ"+X®,1,8,8 
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NEXT 0 

FOR 1-1 TO BA 

KeX+2l 
B=NCTIIYEH-DIE=-XHNIF@HI-BIG.KHCHNIK "X HC 
IF B=8 THEN 2248 

REC X,Y,A,B,1 

LIRE X,Y,K,F,1 

LINE K,F,O,F,1 

LINE G,F,&E,Y,1 

LINE 6,F,0,H1,1 

LINE 0,H1,E,H,1 

NEXT I 

1-8 

FOR K"72 TO (BA-i)s21H72 STEP 21 
I=1+1:1B=N<i1)ı IF B=B THEN 2288 

IF SON (BDEI1>)=-1 THEN TEXT X-11,H1-132,* 
ECTRL A,RVSI-LOFF)*,1,1,7:60T0 2288 
PAINT X,Hl,1 

NEXT X : 

TEXT 47,H+28,*"ICTRL AJ"+Ms,1,1,18 
TEXT 47,H+38,"ICTRL AJ"+58,1,1,8 
RETURN 

END 

REM PARETO (7%) DIAGRAMM ZEICHNEN 
HIRES 8,15:%»28 

TEXT 38,1, *LCTRL A)’+TS,1,2,16 

REC K+13,H-148,<BAs227+19,H-15,1 

FOR I»12 TO i28 STEP 12 

LINE K+13,.H-1,X+t11,H-1,1 

NEXT 1 

TEXT 8,H-3,"[3SPACES10",1,0,8 

FOR 1-15 TO 123 STEP I2:lleWHFIAS=STRS (WI 
IF LEN (A&)<4 THEN AS=CHR& (32)+A$:00T0 
8530 

TEXT B,H-1,*LCTRL Al*+AS,1,0,8 

NEXT ItTEXT 8,H-140, "IESPACES I" ,1,0,8 
FOR O",X+23 TO (Bh-1)323+X+23 STEP 23 
JeJ+1:H8=LEFTS (28(<J3),2> 

TEXT Q,H+18,*ICTRL Al'+xs,1,0,8 

NEXT QıA=22 

FOR I«1 TO BA 

Kuk+22 
BeNCIIIYeH-BIERKHAIF=HI-BIGHKHCHASKN HC 
REC K,Y,.A,B,.1 

H-Y 

NEXT I 

H-1681A"12:1=0 

TEXT 30,H+20,*ICTRL AJ*+S#,1,1,8 

TEXT 30,H+30,*ICTRL Al'+Ms,1,1,8 
RETURN 

EnD 

REM MUENZGRAFIK ZEICHNEN 

HIRES ©,15:Y=120:A=B1C=-Bı%=9 

FOR X=88 TO t(BA-1)248)+B8 STEP 48 
ArA+l18=NtA)tl=Y-(3:B) 

EIRCLE %,C,15,8,1 

FOR I"i TO NA) 

ARC X,C+(3.1),90,270,3,13,8,1 

next i 

TEXT X-8,C-2,"DM",1,0,8 

IF SON <BBtA)Y)>=-1 THEN TEKT X-6,C-17,” 
ICTAL A,RVSI-tOFF]I*,1,8,8 

NEXT X 

REC 60,58,(48sBA),100,1 

FOR 1».3 TO 63 STEP ı2 

LINE 62,138-1,58,138-1,1 

NEXT I 

TEXT 0,132,"I8SPACESIO",1,0,8 

TEXT 8,38, *tCTRL A) *+P2,1,0,8 

FOR I=-1 T0 5 

WeLlFiAs=StRs (11) 

IF LEN <A#)<7 THEN AS=CHRS (327 +AB:GOTO 
2928 

TEXT 8,132-<1s12>,*tCTRL A)"+AS,1,0,8 
NEXT I 

FOR Q=73 TO (BA-1)248+75 STEP 48 
JeJ+11M8S»LEFTS (28(J),2) 

TEXT 0,1608, "ICTRL Al'+X$,1,0,8 

NEXT Ga 

TEXT 28,175,*ICTRL Al’+Ms,1,1,8 

TEXT 208,185, *CCTRL AJ"+S8,1,1,8 

TEXT 48,28,*ICTRL Al*+Ts,1,2,108 

RETURN 

END 

REM BALKEN- + LINIEN-DIAGRAMM ZEICHNEN 
H=935:14=37 

DATA A,B,C,O,E,F,0,H,1,J,K,L,M,N,O,P,O,R, 
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ss81 


“ 
3 
ru 
a 


w 
2 
“ 
9 


3895 
3988 


3,T,U,V,W,X,Y,Z 

IF BA>IS THEN Ar8:0=3:0=9 

IF BA>I2 AND BA<I9 THEN A=1B8:C»3:ı0=1 

IF BA>S AND Bn<i3 THEN A=16:1C=-3:0=4 

IF BA<? THEN Ar24ıC#3:0=8 

HIRES 8,15 

TEXT 33,0, *tCTRL Al*+Ts,1,2,18 

FOR 1=15 TO 79 STEP I6 

LINE #+3,1,%+3,1,1 

NEXT I 

IF KS=CHRS (133) THEN GOTO 33088 

FOR I=111 TO 175 STEP 16 

LINE %+5,1,%+3,1,1 

NEHT I 

G0T0 3358 

FOR 1=-121 TO 185 STEP 16 

LINE %+5,1,X+3, 1,1 

NEXT I 

IF XS=CHR# (133) THEN LINE K+3,105,%+18+ 
<iN+C)eDAIFL2«O>, 185,1 

LINE X+5,99,X+18+CA+C)sBA)+LERO), 3,1 
TEXT K-7,92,"+",1,6,7 

TEXT X-7,102,"-",1,08,7 

IF KS-CHRs (137) THEN REC X+5,15,CtArcı# 
DA>+IA+C280>,100,1:00T0 3410 

REC K+3,15,ttA+Cyrean)+iark20), 170,1 
Ku4+S:J=HiIF NtEidCi THEN J=95 

FOR I-i TO BA 

K=X+A+c 

IF XS=CHR® (137) THEN READ OS: TEXT K+0, 
189,"LCTRL A)*+08,1,8,7 

IF KS-CHR# (137) THEN GOSUB 3728:60T0 
3598 

READ OS! TEXT X+0,97,*"LCTRL AI*+08,1,8,7 
B+NCIHılF SON <B)3=-1 THEN LET B=B#+-1:G0T0 


3768 

Y-H-B 

REC X,Y.A,B,1 

NEXT I 

FOR 1-76 TO 12 STEP -161WLHFıAS=-STRE (ih) 
IF LEN tAS><S THEN AS=CHRS (32) +AS1G0TO 
33298 

TEXT 8,1,"tCTRL A]J"+N®,1,8,8 

NEXT I1TEXT 8,3,*tCTRL A) *+PR,1,8,8 
TEXT 8,198, "[CTRL A]"+ME,1,1,8 

TEXT 178,198, *tCTRL A)*+Ss,ı,1,8 

Wo 

IF XS:CHR$ 1133) THEN GOTO 36208 

FOR 1-188 TO 172 STEP I6tUeLHFiAs-STR$ 
iW):GOTO 3630 

FOR 1=118 TO 182 STEP 16:U=WHFiAS=STRS 
(u) 

IF LEN tAS><S THEN At=CHR® (32>+A2:00T0 
3638 

TEXT 8,1,"ICTRL A]J"+NS,1,0,8 

NEXT I 


B=NCI)tYeH-Bi IF SON (B)=-1 THEN LET BrB+- 
1:Y=93+B 

LINE K+0+3,J,8+0+3,Y,11K"KıJ=Y 

RETURN 


REC X,Y,N,B,i 

PAINT K+l,Y+1,.! 

0070 3588 

En 

REM TORTENGRAFIK ZEICHNEN 

HIRES 0,15 

TEXT 48,1, "[CTRL A]J"+TS.1,2,18 

TEXT 8,17,*ICTRL AIJMAX.WERTE"+GSH* "+PB, 
1,1,8 

CIRCLE 158,108,188,50,1 

ARC 150,1208,90,278,5,1008,508,1 
R»360/SU:ANGL 1508,188,368, 109,50, 1 

LINE 50,100,50,128,1:ıLINE 290,1008,250, 
120,1 

FOR I=1 TO Ben 

Ot1>=ABS <BRCIY) 

P=P+GCI)ınNnaL 158,188,R+P,188,58,1 
M={RsP/1B80)#LPIJIN=C(RaG< II/2)/1BB># LP 1]: 
IF (RsP)>90 AND (R«P)I<27e THEN GOSUB 4310 
READ XS1 TEXT 149-005 CtM-NI+ttP1J/72) >“ 
120,198-5IN Ct(M-NI+HCLPII/EI>Y80,%8,1,1,7 
Ir OtBA)»ABS <BBC1>) THEN 3918 

IF Qt1)=9 AND H<>G THEN PAINT 158-CoS 


tCM-NI+LPII/EIR28,188-51IN CiHi-NI+tP1)/23% 
88,1 

H=OC1) 

hEXT I 

TEXT 8,198, *ICTRL AJ'«+MS,1,1,7 

TEXT 178,190, "ICTRL Al*+S58,1,1,7 
RETURN 

END 

REM BILDSCHIRM-COPTY 

OPEN 1,4:PRINTHI1,CHRS <27)> CHR$ (108) 
CHR$ (7)ICLOSE I:REM LINKER RAND SETZEN 
OPEN 1,4 

OPEN 9,4,9,*7” 

PRINTWI,CHRE 27)” v* 

PRINTHI,CHR® (88) 

cory 

tLOSE I1CL0OSE 9 

RETURN 

END 

REM LISTE DRUCKEN 

NRM 

OPEN 1,4:CrD 1 

PRINT PRINT ıPRINT "LBSPACESILERTE - 
AUFLISTUNG #* 

PRINT ıPRINT Ks 

PRINT IıPRINT "ZEICHENt?7SPACESIKERT 
t3SPACES IBE2 . LASPACES IALISPACES IPOSTEN*t 
PRINT 

IS’ HUnNunHun,. mn" 

FOR Ii=1 TO BA:JS"Jst1> 

KS:LEFTS (Z8C11>,23: IF FRiy)*J" THEN A115 
PRINT *t2SPACES)*XS*L3SPACESI"7:USE 18, 
BBSCIIEPRINT *"LESPACESI"PRL2ESPACESI*I JE" 
tasPACESI*:2811):00T0 4120 

PRINT "LESPACESI"KE*L3ISPACESI*HIUSE 18, 
BBSCIYIIPRINT *L2ASPNCES) "PS "TBSPACESI*: 
z2(1) 

NEXT I 

PRINTHIICLOSE I 

OPEN I,41PRINTWI,CHRS (27) CHRS (129: 
CLOSE I:REM BLATTENDE -VORSCHUB 

RETURN 

END 

REM LISTE DRUCKEN (A-2> 

NRM 

OPEN I,4:CMO 1 

PRINT :PRINT :PRINT *LBSPACESIKERTE - 


... anihrem Commodore Computer 
„.. rufen Sie uns ungeniert — 
die Service-Profis von 
»Rat und Tate. 
Wir warten und reparieren 
schnell : preiswert - gut 


C< commodore 


oVC20 oC64 


und die Peripherie 
@ Floppy-Disk @ Drucker 
@ Datasette 


Technischer 
Kundendienst 


Augsburg, Tel. (06 21) 4650 
Beran, Tel. (030) 684605 


‚ Tel. (02871, 182195 
Te. 10531] 4467 
04 21, 414350 
Bremer haven, Tel. (0471)491B8 
Gm ‚Te. (051 An Bzer 


Despendorl T 3 
Dorimund-Holzwickade. Tel 
eidorl-Eiler, Tel. (02 11} 
eveim, Tel. (02.01) 3 
Main, Tel, (069) 41601 
Aear -Gundelfingen Tel 
Fu una Peter sberg, Tel. (066 


AUFLISTUNG :” 

PRINT +PRINT K$ 

PRINT :PRINT "ZEICHEN! 7SPACESIWERT 
[3SPACES IBE2 , LASPACES IHLASPACES JIPOSTEN*t 
PRINT 

RESTORE t IS=nnnnuunnn.mm" 

FOR I=1 TO BAtı JS=JSC1> 

REAND XS: IF FR<>*J* THEN 4265 

PRINT "L3SPACESI*"HS*LISPACESI*?:USE 18, 
BRSCLI:PRINT *LESPACESI*"PsS*L2SPACESI".,J2" 
taspPACESI"128<1):00T0 4278 

PRINT *t3SPAGESI*"KE*"L3SPACES)*"FIUSE 18, 
BRSCIY:PRINT *IESPACES I "Pr "LSSPACESI*} 
2#<1> 

NEXT I 

PRINTWI:CLOSE 1 


(O6AN 544-4 
Tel. (0551) 782440 


jee, Tel. (05321, 50531/50345 


‚Tel 0401 731685 -59 


WINE 63973277 


‚del (07131) 8 
a. Tel. (00281) 994 
ie. Tel. (06781) 27800 


rissuhe, Tel 
Kassel, Tel. (0! 
Kempten, Te 
Kies. Tel 1043 
Koblenz-Lützei Tel ft 
Köln-Rodenkirchen, Tel. (0 
Landshut, Tei. (08 71) 26760 
er Ladn, Tel 0% 3 257 06 


55. 


5 


& 


OPEN 1,41PRINT#I,CHR$ (27) CHR# (1291 
CLOSE I:REM BLATTENDE -VORSCHUB 
RETURN 

END 

REM ARC TEILEN 

Miet 159-C0S (M+LPII/2)E10B)ENN=(188-5IN 
“M+tP11/2)338) 

LINE MM,NN,MM,NN+EB, 1 

RETURN 

END 

REM SORTIER - ROUTINE PARETO 

I=t 

“X=1*] 

IF BBSC1)>BBStHK)> THEN 4480 
BBL(D)=-BBSL II :BEBHSEL I I)=BESCHKI:BBSCHX)" 
BEs(o) 

P& I7.BI 72 TE BZFZ TE BEDZ Ze iS pE 280,229 2 27:8) 
JECBY)w IE II JSCLI" IECHHI LI ECHK I" ISCH) 
KHuNXeI 

IF xXx<=BA THEN 44608 

Im1*1 

IF 1<>BA THEN 44508 

RETURN 


1622010 
04371) 4 2061-58 
0731154070 
Nürnberg-E Te. (09 17) 21 
Passau, Tel. (0851152177 
im, Tel (07231) 240 21-22 
Teil. (0751) 25116 
ghausen, Tel. (023611 20955%/ 
burg, Te a 


Wihelmshanen, Tel. 1044 21) 42399 
Würzbeeg. Tel. (0931) 50289 


Spezial 1 GUW 57 


ZED setzt Zeichen 


Von deutschen Umlauten bis zu 
griechischen Buchstaben, alles 
kann der C64 erzeugen. Doch es 
kostet Zeit und Mühe: Endlose 
Zahlenkolonnen sind zu berechnen, 
bevor man seine Kreationen am 
Bildschirm bewundern kann. Ein 
Zeicheneditor erspart diesen lan- 
gen und fehlerträchtigen Weg. 
Die neuen Zeichen werden direkt 
am Bildschirm entworfen. Der 
Computer macht die Drecksar- 
beit. So bleibt der Kopf frei für die 
künstlerische Inspiration. 

Doch Zeicheneditor ist nicht 
gleich Zeicheneditor. Der einfach- 
ste stellt nur die Matrix auf dem 
Bildschirm dar und errechnet die 
Datas, „ZED" geht weit darüber 
hinaus. Mit mehr als 30 Befeh- 
len bietet er außergewöhnlichen 
Komfort. Er rotiert und kopiert, 


Wer seinem C64 einen 


Satz neue Zeichen ver- 


passen will, hat zwei 


Möglichkeiten: Er 
rechnet tagelang — 


oder benutzt „ZED“. 


sendet Floppykommandos und 
verwaltet zwei unabhängige Zei- 
chensätze — RUN-Programmierer 
Andreas Wellie hat an alles ge- 
dacht. 

„ZED“ unterteilt den Bildschirm in 
mehrere Bereiche (siehe Bild): 

— Das Zeichensatzfeld im oberen 


Teil enthält den kompletten Zei- 
chensatz in acht Reihen zu je 32 
Zeichen. 

— Im Arbeitsfelä in der linken 
Bildschirmseite ist das aktuelle 
Zeichen in achtfacher Vergröße- 
rung zu sehen. Hier werden 
Zeichen editiert. 

— Daneben stehen rechts oben 
das aktuelle Zeichen in Original- 
größe und seine Bildschirmcode- 
zahl. 

— Darunter werden die Nummer 
des Zeichensatzes (l oder 2) und 
seine Startadresse für den SAVE- 
Befehl (siehe unten) angezeigt. 

— Im Feld darunter wird die 
Nummer des zweiten Zeichens für 
die Befehle Tauschen, Kopieren 
und Oder-Verknüpfung eingege- 
ben. 

— Im Menüfeld auf der rechten 
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Seite stehen die Editor-Komman- 
dos. Da auf dem Bildschirm kein 
Platz ist, um alle Befehle auf ein- 
mal zu zeigen, ist das Menü auf 
zwei Seiten verteilt. 

= schaltet zwischen den Seiten hin 
und her. 

Einige Befehle, für die trotz des 
doppelseitigen Menüs kein Eck- 
chen mehr frei war, sind unter 
dem Arbeitsfeld angegeben. 


Zeichen bearbeiten 
|. A Er 


CRSR-Tasten: Mit den Cursor-Ta- 
sten wird der blinkende Cursor 
durch das Arbeitsfeld gefahren. 
Stößt er an den Rand, erscheint er 
wieder auf der gegenüberliegen- 
den Seite. 

HOME: Der Cursor wird in die lin- 
ke obere Ecke des Arbeitsfeldes 
gesetzt. 

CLR: Das Arbeitsfeld wird ge- 
löscht und der Cursor in die linke 
obere Ecke gesetzt. 

SPACE: Der Punkt unter dem 
Cursor wird gelöscht und der Cur- 
sor um einen Punkt nach rechts 
bewegt. 

SHIFT-SPACE: Der Punkt an der 
Cursorposition wird gesetzt, der 
Cursor wandert einen Punkt nach 
rechts. 

RETURN: Der Punkt, auf dem der 
Cursor steht, wird invertiert, das 
heißt, ein gelöschter Punkt wird 
gesetzt und ein gesetzter Punkt 
wird gelöscht. Der Cursor bleibt 
an derselben Stelle. 

Die nächsten Befehle verändern 
das gesamte Zeichen. Aus einem 
einzigen Zeichen lassen sich mit 
ihnen 1024 verschiedene Muster 
erzeugen! 

I: Das aktuelle Zeichen wird in- 
vertiert. 

t: Das Zeichen rotiert um eine 
Reihe nach oben. Die Reihe, die 
oben verschwindet, wird unten 
wieder hineingeschoben. 

«“: Das Zeichen rotiert um eine 
Spalte nach links. 

D: Das Zeichen wird um 90 Grad 
nach rechts gedreht. 

H: Das Zeichen wird horizontal 
gespiegelt. 

V: Das Zeichen wird vertikal 
gespiegelt. 


Ist ein Zeichen zufriedenstellend 
umgestaltet, kann das nächste 
ausgewählt werden. Dazu gibt es 
gleich drei Möglichkeiten: 

@/: Mit diesen vier Tasten steu- 
ert man einen zweiten, schwarzen 
Cursor durch das Zeichensatz- 
feld. Das Zeichen unter dem OCur- 
sor erscheint automatisch im Ar- 
beitsfeld und im kleinen Zeichen- 
feld. 

‚ Ein Zeichen wird über sei- 
nen Bildschirmcode angewählt. Er 
muß in dezimaler Form eingege- 
ben werden. 

.: Das gewünschte Zeichen wird 
direkt über die entsprechende 
Taste auf der Tastatur ausgesucht. 
Dabei kann die Taste auch zusam- 
men mit Shift oder Commodore 
gedrückt werden. Das Zeichen er- 
scheint zunächst nur im kleinen 
Zeichenfeld. Erst nach Return 
wird es ins Arbeitsfeld übernom- 
men. 

>: Wie unter '.', nur für reverse 
Zeichen. 

Bei den folgenden Befehlen muß 
ein zweites Zeichen über seinen 
Bildschirmcode ausgewählt wer- 
den. Er wird wieder in dezimaler 
Form eingegeben. 

T: Das aktuelle Zeichen tauscht 
mit dem zweiten Zeichen den Platz 
im Speicher. 

C: Das zweite Zeichen wird auf 
das aktuelle Zeichen kopiert. 

O: Das Zeichen im Arbeitsfeld 
wird mit dem zweiten Zeichen 
oder- verknüpft. Ein Punkt im er- 
sten Zeichen wird also gesetzt, 
wenn er in mindestens einem der 
beiden Zeichen gesetzt war. 


Zwei Zeichensätze 
FIEIEEr 


Mit dem Zeichen-Editor können 
zwei Zeichensätze unabhängig 
voneinander bearbeitet werden. 

1 2: Mit diesen Tasten wird zwi- 
schen den beiden Zeichensätzen 
hin- und hergesprungen. Damit 
man nicht durcheinanderkommt, 
wird neben dem Arbeitsfeld an- 
gezeigt, welcher Satz gerade in 
Arbeit ist. 

F2: Der normale Zeichensatz für 
Großschrift/Grafik wird aus dem 
ROM in den aktuellen Zeichensatz 
übernommen. Achtung: Der gera- 
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de bearbeitete Satz wird dabei ge- 
löscht! 

F4: Der ROM-Zeichensatz für 
Großschrift/Kleinschrift wird in 
den aktuellen Zeichensatz geholt. 
Auch hier geht der alte Zeichen- 
satz verloren. 

F5: Mit diesem Kommando wer- 
den Zeichen vom aktuellen Zei- 
chensatz in den anderen Satz ko- 
piert. Dazu ist der Bildschirmcode 
des letzten zu übertragenden 
Zeichens einzugeben. Der gesam- 
te Bereich vom aktuellen Zeichen 
bis zu diesem Zeichen wechselt 
hinüber. Will man nur das gerade 
bearbeitete Zeichen in den ande- 
ren Satz übertragen, so reicht es, 
wenn man statt der Eingabe des 
Codes des letzten Zeichens nur 
Return drückt. 

F7: Der aktuelle Zeichensatz wird 
in DATA-Zeilen übertragen. Es 
werden die Zeilennummern 
63000—63255 benutzt. Jede Zeile 
enthält die acht Bytes für ein 
Zeichen. 

£: Mit diesem Befehl wird der 
neue Zeichensatz erprobt. Der 
Bildschirm wird gelöscht, und ein 
beliebiger Text kann geschrieben 
werden. Mit der Stop-Taste geht's 
zurück in den Editor. 


Diskettenbefehle 
BE 


Commodore D: Das Directory 
wird eingelesen. Nach einem be- 
liebigen Tastendruck wird am un- 
teren Bildschirmrand jeweils ein 
File angezeigt. Mit der Stop-Taste 
wird die Ausgabe abgebrochen. 
Commodore C: Senden eines 
Diskbefehls 


- Commodore E: Lesen des Fehler- 


kanals 

Commodore L: Ein Zeichensatz 
wird von Diskette in den aktuellen 
Bereich geladen. Er muß als PRG- 
File abgelegt sein und im 15. und 
16. Zeichen des Namens die Ken- 
nung '.z' haben. Er darf nicht län- 
ger als neun Blöcke sein, weil 
sonst der Zeichen-Editor über- 
schrieben wird. 

Commodore S: Der aktuelle Zei- 
chensatz wird auf Diskette abge- 
speichert. Er belegt neun Blöcke 
und hat im 15, und 16, Zeichen des 


Namens die Kennung '.z’. Rechts $ 
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neben dem Arbeitsfeld steht die 
Startadresse des erzeugten Pro- 
grammiiles. Wird der Zeichensatz 
außerhalb des Editor-Programms 
mit LOAD ..,8,1 geladen, so wird 
er ab dieser Adresse im Speicher 
abgelegt. Beim Saven muß daher 
auf die richtige Startadresse ge- 
achtet werden, um böse Überra- 
schungen zu vermeiden. Für den 
Ladebefehl des Editors hat die 
Adresse keine Bedeutung. 

+ —: Mit diesen Tasten kann die 
Startadresse für den Save-Befehl 
neu festgesetzt werden. Die Ein- 
stellung beim Start ist $2000. 

Bei den Befehlen für Laden, Spei- 
chern und Directory einlesen wird 
vorübergehend auf den Commo- 
dore-Zeichensatz zurückgeschal- 
tet. 

RUN/STOP: Alle Befehle können 
mit der RUN/STOP-Taste abge- 


brochen werden, soweit sie nicht 
nach dem Aufruf sofort erledigt 
sind. Im normalen Editier-Modus 
wird nach Drücken von RUN/ 
STOP der Standard-Zeichensatz 
aktiviert und das Programm ver- 
lassen. Es kann mit SYS 49152 neu 
gestartet werden. Die geänderten 
Zeichensätze bleiben dabei erhal- 
ten. 

Die Befehle, die die Eingabe einer 
Dezimalzahl, eines Filenamens 
oder eines Diskbefehls verlan- 
gen, benutzen eine spezielle In- 
put-Routine: Mit den Tasten Cur- 
sor Right (für rechts) und Cursor 
Down (für links) kann man sich in- 
nerhalb des Eingabefeldes frei 
bewegen. Gelöscht wird mit der 
Space-Taste, Die Eingabe wird mit 
RETURN beendet oder mit RUN/ 
STOP ohne weitere Bearbeitung 
abgebrochen. 


Der Editor verbraucht keinen Ba- 
sic-Speicher, da er die Zeichen- 
sätze in dem RAM-Bereich unter 
dem Basic-ROM ableat. Dazu läßt 
man den Videochip auf BANK#2 
($8000—$BFFF) zugreifen. Beim 
Programmmstart ist dieser RAM-Be- 
reich noch nicht initialisiert, Des- 
halb erscheint im Zeichenfeld ein 
mehr oder weniger zufälliges 
Punktemuster. Mit F2 oder F4 läßt 
sich das Durcheinander durch die 
vertrauten Commodore-Zeichen 
eIsetzen. 

Das Programm ist vollständig in 
Maschinensprache geschrieben 
und belegt den Speicherbereich 
von $C000 bis $CD75. Es kann als 
Basic-Lader oder als Hexdump 
eingegeben werden. Für den 
Hexdump ist der Checker zu ver- 
wenden. Als Startadresse ist C000 
anzugeben. (Andreas Wellie) 
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REM  ZEICHEN-EDITOR 

REM 

REM Von 

REM ANDREAS WELLIE' 

REM SONDERFELD 8 

REM 4380 ESSEN 14 

REM 

PRINT "LCLR,2DOLNI ZEICHEN-EDITOR" 

PRINT "tDOWNI DATAS WERDEN GELESEN 
B 

FOR A=43152 TO 525937 

READ B 

POKE A,B 

C=C+B 

NEXT 

IF C<)393635 THEN PRINT *L2DOULN] 

FEHLER IN DATAS I":ENO 

SYS 43152 

DATA 32,178,192,169,8,141,32,208 

DATA 141,33,2898,1689,1,141,21.208 

DATA 169,8,141,39,288,169, 152,141 

DATA 0,208,169,128,141,1,208,169 

DATA 144,141,248,163,162,63, 169,0 

DATA 137,9,164,202,16,290,169,128 

DATA. 141,138,2,169,0,133,157,169 

DATA 08,133,66,169,1,133,67,163 

DATA 176,123,248,169,8,133,247,169 

DATA 140,141,213,202,169,49, 141,213 

DATA 202,169,160,141,136,2,169,149 

DATA 141,0,221,32,90,200, 160,200 

DATA 1693,218,32,169,2988,169,8,141 

DATA 134,2,173,215,202 ,141,242,,161 

DATA 162,1,134,249,160,8,132,250 

DATA 163,129,133,2,32,226, 197,32 

DATA 118,197,32,183,208,32,32,198 

DATA 78,203,192,32,183,199,182,48 

DATA 221,82 ,202 ‚2498,6,282,16,248 

DATA 76,139,192,168,139, 123,202, 141 

DATA 170,192,183,164,2082,141,171,192 

DATA 152,76,8,8,22,178,192,76 

DATA 123,227,169,59,133,1,169,199 

DATA 141,0,221,169,4,141,136,2 

DATA 32,163,253,32,21.233,32,91 

DATA 235,96,234,.169,10,133,214,169 

DATA 5,133,211,32,16,223, 162,1 

DATA 1934,249,160,8,132,230,160,128 

DATA 132,2 ,32,226,197,76,139,192 

DATA 166,249 ,224 ,8,208,15,169,128 

DATA 133,2,169,1,133,249,169,5 
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133,211,76,139,192,230,249,238 
211,70,2,76,139,192,166,249 
224,1,2088,15,169,1,133,2 
189,8,133,249,169,12,133,211 
76,139,192,198,249,198,211,6 
2,76,139,192,166,250,224,7 
208,14,169,0,1933,259,169,10 
133,214,32,16,229,76,139,192 
230 ,214,32,16.,2293,230,290,76 
139,192,166,259,224,8,208,14 
169,7,133,258,169,17,133,214 
32,16,229,76,139,192,198,214 
32,16,229,198,258,76,139,192 
230,66,32,118,197,76,283, 132 
198,66,76,98,193,32,88,197 
164 ,258,177,78,69,2,145,78 
76,169,196 ,32,88,197,169,7 
177,78,10,8,106,48,492,145 
78,136,16,244,76,159,196,32 
898,197,168,9,177,78,178,208 
177,73,136,145,793,208,192,7 
208,245,139,145,78,76,169,196 
169,129,32,210,233,169,19,32 
210,255,165,66,1941,8,168,169 
221,141,288,286,169,1,191,217 
202,32,197,199,173,8,168,133 
66,169,8,141,289,206,141,134 
2,169,196,32,210,255,76,98 
193,159,198,32,210,255,76,168 
193,169,14,133,211,169,10,133 
@214,32,16,229,32,.230,196,133 
66,76,38,193,173,213,202,133 
2,169,132,141,213,202,169,23 
133,214,169,9,133,211,32,16 
229,169,250,168,201,32,169,208 
169,34,168,202,32,169,208,163 
14 ,191,217,202,32,197,199,169 
1,162,8,160,97,32,186,255 
169,16,162,219,232,168,202,32 
1989,255,32,192,255,169,8,32 
177,235,169,97,32,147,255,169 
8,32,168,255,173,289,202,32 
168,255,165,247,133,78,165,248 
133,79,162,8,160,8,177,78 

134 ,96,32,168,255,166,96 ‚208 
208,244 ,238,79,202,208,237,169 
1,32,195,255,165,2,141,213 
202,76,94,192,173,213,202,133 
2,169,132,191,213,282,169,23 


133,214,169,9,133,211,32,16 
223,169,16,168,202,32,169,208 
169,34,168,202,32,169,208,169 
14,141,217,202,32,197,199,169 
2,162,8,168,08,32,198,255 
169,16,162,219,232,168,282,32 
189,295,169,8,166 ,247,164,248 
32 ,213,295,169,2,141,213,282 
169,8,133,66,76,94,192,32 
88,197,160,7,189,8,145,78 
136,16,281,76,98,193,32,80 
197,160,7.177,78,73,235,145 
78,136,16,247,76,169,196,32 
88,197,160,7,162,8,161,78 
72,177,79,1829,78,1084,145,78 
230,78,136,196,16,248,76,169 
196,165,686,72,32,194,196,133 
66 ,32,88,197,168,7,177,78 
145,73,136,16,249,104,133,86 
76,94,192,165,66,72,32,194 
196,133,68,32,88,197,168,7 
177,78,170,177,73,1453,78,138 
195,73,136,16,243,104,133,66 
76,34,192,32,80,197,160,7 
177,78,162,7,74,133,73,165 
74,42,133,74,165,73,202,16 
243,165,74,145,78,136,18,232 
76,169,196,169,66,72,32,194 
196,133,66 ,32,88,197,160,7? 
177,73,17,78,145,73,136,16 
247,104,133,66,76,94,192,32 
88,197,1608,7,182,7,177,78 
74,62 ‚224,206 ,202,16,249,1938 
16 ,242,168,7,185,224,2086, 143 
78,136,16,248,76,169,196,32 
80,197,164,258,169,2,224,188 
248,8,73,.255,49,78,224,180 
208,2,17,78,195,78,163,211 
133,89,185,219,133,79,32,110 
197,165,69,133,211,165,70,133 
214,32,16,229,76,232,192,32 
89,197,162,100,76,194,195,165 
665,56,233,32,133,66,76,98 
193,165,66,24,195,32,133,66 
76,938,193,169,216,132,96,168 
224,132,91,76,140,199,165,66 
133,95,92,194,196,197,66,176 
3,76,34,192,133,.38 ,238,96 

32 ,80,197,173,242,161 ,281,49 
248,10,169,79,56 ,233,8,133 
89,76,27,198,169,79,24,185 
8,133,89,165,78,133,88,168 
?,177,78,145,88,136,16,249 
230,66,16%,965,197,66,208,208 
165,95,133,66,76,94,192,173 
2093 ,202,24,105,9,141,203,2082 
=2,193.200,76,139,192,173,289 
202,56,233,98,141,209,202,32 
183,280,76,1393,192,173,213,202 
141,212,282,189,8,141,21,288 
169,147,22,218,235,32,163,199 
201,3,2408,6,32,210,2$5,76 
181,196,169,132,141 ,212,282,169 
1,141,21,2098,756,94,192,141 
215,202,56,233,49,178,189,285 
202,133,248,183,207 ,202,141,213 
202,76,106,192,165,67,281,1 
2499,5,169,1,76,161,196,169 
15,133,67,32,32,198,76,139 
192,165,211,133,69,169,214,133 
79,32,119,197,165,89,133,211 
165,78,133,214 ,32,16,229,768 
139,192,32,60,197,165,78,133 
73,185,79,133,74,169,16,133 
211,169,16,133,214,32,16,229 
169,32,141 ,220,202,141,221,202 
141,222,202,169,3,141,217,202 
32,287,199,162,3,189,219,282 
157,157,161,202 ‚208 ,247,32,2 
197,96,169,3,141,217,202,32 
197,199,1659,66,141,216,282,168 
2,195,158,161,201,32,288,5 
126 ,48,57,16,244,941,15,1491 
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218,202,138,498,47,1985,138,161 
41,15,170,224,0,248,12,173 

216 ‚202,24 ‚1093,10 ,141 ,216 ,202 
208 ‚206,244 ,136,,48,22, 185,188 
161,41,15,170,224,0,248,12 
173,216 ,202 ,24, 185,180, 141,218 
202 ‚202 ‚208,244, 173,216 ‚202,96 
165,247 ,133,78,165,2498,133,79 
169,0,162,0,228,86 ,248, 11 
24,109,9.2688,2,230,79,232 
768,92,197,133,79,38,32,808 
197,189,18,133,214,169,5,.133 
211,32,16,229,160,9,1232,68. 
169,128,133,60,177,78,37,60 
208,5,169,32,76,145,197,1869 
289,132 ,65,32,219,235,164,65 
165,69,281,1,240,5,70,60 
76,132,197,280,192,8,248,16 
132 ,65,230,214,169,3,133,211 
32,16,229,164,63,76,128,197 
168,2081,169,219,32,1869,208,169 
55,133,1,166,66,169,0,32 
205,1893,169,54,133,1,32,210 
197,968,160,7,162,23,177,78 
157,8,164 ,202 ,202,282,1236,16 
243,96,169,4,133,61,133,63 
169,160,133,62,169,216,133,64 
162,8,168,0,1398,145,61,197 

86 ‚2098,9,169,8,768,2,198 
169,9,145,63,232,208, 192,382 
208,224 ,169,40,,24 ,101,63,133 
63,133,€1,144 ,4 ‚238 ,62 ,230 
64,169,69,197,61,208,211,96 
169,123,133,73,169,203,133,74 
169,7,141,134,2,166,67,168 
08,177,73,208,3,202,248,8 
32,125,198,76,49, 198 ‚32,125 
198,169,9,133,214,169,21,133 
211,32,18,229,168,8,177,73 
240,9,32,210,255,32,123,198 
76,76,198,32,125, 198,230 ,214 
169,23, 197,214 ‚298 ,223,169,08 
141,124,2,165,243,24,103,4 
133,211,169,250,24,103,10,133 
214,32,18,229,96,230,73,208 
2,230,74,36,160,209,132,96 
160,216,132,91,162,8,134,95 
162,0,134,90,162,0,134,88 
165,248 ,24,105,8,133,89,128 
169,51,133,1,32,191,163,169 

54 ,133,1,898,76,106,192,169 
23,133,214,169,8,133,211,32 
16,229,162,214,134,197,168,202 
132,188,169,1,133,193,169,8 
133,196,169,98,133,185,32,213 
243,165,196,32,188,255,165,185 
32,150,2885,169,0,133,144,160 
3,138,251,38.163,255,133,252 
164 ‚144 ‚208,69,32,165,255, 184 
144 ‚208 ,52,164 ‚251,136 ‚208,233 
166,252,169,595,132,1,32,205 
189,169,54,133,1,169,32,32 
210,235 ,32,169,299, 166,144 ,208 
32,170,240,6.32,210,255,76 
18,199,160,23,132,214,32,163 
199,201,3,208,3,78,49,199 
169,13,32,210,255, 160,2 ,208 
176,32.,66,246,76,934,192,183 
23,133,214,168,0,133,211,32 
16,229 ,169 ,62,,32 ‚210,255, 169 
14 ,141,217,202,32,197,199,169 
32 ,205,2298,202 ,2498,27,189,1 
162,8,168,15,32,186,255,173 
217,202, 162,219,232,160,202,32 
19893,2855 ,32,192,255,189,0,133 
152 ,76,94 ,192,169,23,133,214 
169,0,133.211,32,16,229,169 
8,133,1988,32,188,255,189, 111 
133,185,32,150 ,255 ,32, 163,253 
201,13,240,6,,32 ,219,258,76 
141,199,32,171,255,32,163,199 
76,94,,192,169,9,133,212,165 
198, 133,204,141, 146 ,2,240 ,243 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


120,165,207,248,12,165,286,174 
135,2,160,0,132,207,32,19 

234 ,3€,190,229,96,169,32,162 
14,157,219,202 ‚202 ‚209 ‚250 ,182 
1,142,218,202,32,163,199,201 
3,283,17,169,0,141,208,206 
165,2,201,138,144,3,141,213 
202,768,94,192,201,13,208,1 

96 ‚201,29 ,209,16,174 ,219,202 
236 ‚217,202 ,248 ,213 ‚238 ,218,,202 
2308 ,211,76,212,199,201,17,208 
15,173,218,202 ‚201 ,1,248, 198 
206, ,2168,202,199,211,76,218,199 
291 ,32,144 ,3,201,96,194,7? 
201,160,176,3,76,212,199,174 
2198,202,157,213,202 ‚238 ‚218,202 
32,210,255,169,0,133,212,174 
217,202 ‚232 ‚236 ‚218 ‚202 ‚2088,53 
206 ,218,202,198,211,169 221,205 
208 ‚206 ,288,11,173,8,168,133 
66 ,32,,80, 197,32 ,218,197,76 
212,199,120,169,127,141,13,220 
169,1,141,26,288,141,18,208 
141 ,248,206,169,27,141,17,208 
169,124,141,208,3,169,2988, 141 
21,3,98,968,173,25,298, 141 

25 ,208,41,1,240,26,174 ,240 
206,199,212,282, 141,24 ,208,183 
210,202,141,18,208,202,142,240 
286,16,8,162,1,142,240,206 
75,49,234,104,169,1904,170,104 
64,72,189,55,133,1,104,32 
38,171,169,34,133,1,936,173 
209 ,2082,162,9,74,74,74,74 
32,199,2090,232,173,209 ‚202,41 
19,201,10,178,6,24,105,48 
78,214 ,2088,56 ,233,93,157,63 
162,96,13,8,129,147,17,17 
17,17,17,17,17,17,17,89 
29,29,29,28,213,192,192,132 
192,192,192,192,192,178,182,1392 
192,178,192,201,13,29,29,23 
25,221 ,32,32,32 ,32,32,32 

32 ‚32 ‚221,32 ,32 ‚32 ‚221,22 
@221,13,29,29,29,29,221 ,32 
32,32 ,32,32 ‚32 ‚32 ‚32,171 
192,192,192,177,192,179,13,29 
293,29,29 ‚221 ‚32,32 ,32,32 

32 ,32,32 ,38,221,86,46,35 
32,49,221,13,29,29,29,89 
221,32,32 ,32 ,32,32,32,32 

32 ‚221,32 ,32 ,32 ,32 ‚32,221 
13,29,29,29,29,,221 ,32,32 
32,32,32,32,32 ‚32 ‚221,36 
48,48,48,49,221,13,29,23 

293,29 ‚221,32 ,32,32 ,32,32 

32,32 ,32,171,192,192,192; 132 
192,179,13,29,29 ,289 ,28 ‚221 
32,32 ,32,32 ‚32 ‚32 ,32,38 
221,50,33,32 ,32 ,32 ,221,13 
293,29,29,29,221,32,32,32 
32,32,32,32 ,38,171,192,192 
192,192,192,203,13,29,29,29 
29,202,192,192,192,192,192,192 
192,192 ,203,13,17,29,29,29 
29,158,67,02,83,82,,47,67 
76,92,47,72,79,77,69,13 
29,29,28,29,67 ,92,59,32 
80,46,32,93,69,47,76,79 
69,0,19,17,17,17,17,17 
17,172,17,17,17,29,89,29 
29,29,29,29,29,29,29,293 
@29,29,29,32,32 ,32,,1857,,157 
157,0,908,69,73,67,72,83 
78,83,65,84,90,32,83,80 
693,73,67,72,69,92,78,8 
98,69,73,67,72,69,78,83 
65,64,90,32 ,76 ,69,69,893 
78,0,13,29,29,29,29,29 
29,29,29,29,78,65,77,69 

58,32 ,32 ‚38 ‚32,32 ,32 ,32 
32,32,32,32,32 ,22 ,32..46 
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BI NREENFSTERU SL. SON 


a ——— 


DATA 
para 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
para 
DATA 
oaTa 
DATA 
DATA 
DATA 
DAaTn 
DATA 
DATA 
DATA 
DATA 
para 
DATA 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
bara 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
bara 
DaTa 
DATA 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DOATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


99,157,157,157,157,157,197,1937 
157,157,157,197,157,157,157,157 
157,0,3,19,29,157,17,195 
59,38,172,188,13,95,94,46 
62,94,174,182,147,73,72,67 
84,06,79,69,32,160,177,84 
47,137,139,135,43,45,92,499 
s8,136,61,172,202,232,6,36 
66,96,104,175,55,199,123,143 
169,217,2825,244,116,199,214,231 
1,27,59,91,119,151,199,116 

207 ,217,132,227,238,35,70,85 
187,127,236,148,192,192,192,193 
193,193,193,193,138,199,193, 193 
193,193,193,193,193,194,194,194 
194 ,195,195,195,195,195,199, 195 
199,195,195,198,199,195,196, 196 
196,196,196,202,196,178,184, 148 
142,32,1,120,132,140,36,234 
8,0,08,36,32,32,32,32 

92 ‚32,32 ,32,38 ,32 ,38,32 

92 ,32,96,90,32,179,192,185 
847,133,69,169,248,133,798,169 
246,133,74,169,24,133,73,169 
119,168,203,32,238,171,166,73 
165,79,32,205,189,169,868,32 
E190,255,169,193,32,218,255,160 
8,169,54,133,1,177,69,72 
169,55,123,1,1984,178,152,72 
169,9,32,205,189,104,168,2008 
192,8,240,8,169,44 ,32,218 

855 ,76,25,203,169,109,168,203 
92,38,171,169,13,141,122,2 
141,123,2,169,5,132,198,96 

2230 ,75,209,2,238,74,165,73 
@01,24,248,14,165,69,24,185 
8,133,69,144,2,238,78,76 
255,292 ,76,0,192,13,83,2ı7 
33,50,98,52,56,19,8,147 
17,17,8,0,64,47,58,59 

32 ,90,46 ,32,87,85,69,72 
76,69,78,32,32,32,0,44 
598,78,82,46,32,69,69,98 
46,69,73,78,71,69,68,69 
78,0,96,59,99,69;73,67 
?2,69,78,32,893,73,78,71 
69,66,69,78,8,52,59,73 
798,86,456,32,98,46,32,63 
73,78,71,69,66,69,78,8 
83,80,65,67,69,59,80,46 
32,76.79,89,83,67,72,69 
798,0,83,72,45,83,90,65 
67,69,58,99,48,32,83,69 

84 ,90,569,78,0,34,58,72 
79,67,72,92,79,94,73,89 
92,69,79,32,32,32,32,0 
95,38,78,73,78,73,93,92 
79,94,73,69,92,689,78,32 

32 ,32,8,73,58,73,78,86 
69,78,84,73,693,82,69,78 
32,32,32,0,72,59,72,73 
82,73,98,793,78,94,65,76 
32,83,80,73,69,46,9,86 
58,96,69,92,84,73,75,65 
76,32,83,80,73,69,71,46 
0,68,58,57,498,393,32,82 
693,67,72,94,93,69,82,69 
72,69,78,0,67,58,90,46 
32,67,79,98,73,69,892,69 
78,0,64,58,98,46 ,32,89 
65,95,83,67,72,69,78,8 
79,58,79,82,45,77,73,89 
69,786,32,32,32,32,32,32 
32,32,90,92,59,90,46,45 
80,92,793,66,69,32,32,32 
32,32,32,392,32,0,43,45 
s9,90,45,55,68,92,69,83 
83,69,32,69,69,79,88,48 
8,49,90,59,90,45,93,63 
34,90,32,84,65,85,93,67 
72,69,78,08,78,38,58,78 

79,92 ,46 ,90,46 ,32,45,82 


40939 
25373 
2549 
3845 
3133 
8778 
2486 
3363 
4051 
2688 
3736 
3767 
4074 
3785 
4891 
3896 
3626 
3254 
2368 
2637 
erıa 
3430 
3426 
3328 
3923 
3317 
2944 
3199 
3046 
2648 
3206 
2604 
3078 
3544 
3080 
2333 
3839 
2536 
2284 
2662 
2606 
e501 
2976 
2515 
2966 
2866 
2648 
2744 
2463 
2989 
e5el 
2848 
8773 
3094 
2453 
2538 
2938 
2231 
8752 
2603 
2302 
2618 
2704 
2577 
2489 
3909 
2739 
3175 
2104 
2815 
2515 
2672 
2324 
2886 
2662 
2658 
2685 
2593 
28398 
2540 
2664 


DAarA 
DATA 
3 DATA 
DATA 
3: DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


32 ,82,65,77,32,32,0,70 
52 ,5398,75,78,69,46.,90 ,46 
32 ‚45,62 ,32,82,69,77,32 
0,70,53,39,90,465,73,78 
32,65,78,98,58,69,82,69 
73,67,72,0,70,35,39,68 
65 ,84,69,.90,69,73,76,69 
78,32,69,92,93,46,0,67 
61,32,69,58,68,73,83,75 
83,94 ,65,94,989,93,32,32 
32,0,67,61,32,67,98,68 


ee 8ı 82 83 94 85 86 97 CHksum C178 
c178 


c999 
c993 
C818 
c818 
c928 
c928 
c8398 
c938 
c848 
c948 
c9598 
c958 
C9658 
c968 
c978 
c9783 
c988 
c888 
c998 
c838 
coA® 
coA8s 
C9B8 
CoB8 
cocea 
caoc8 
C8D8 
c9D8 
C9E® 
CB8ES 
cora 
Cars 
C188 
C188 
c118 
c118 
c128 
c128 
c138 
c138 
c1498 
c148 
c159 
c158 
C168 
c168 


28 B2 CO AS 988 SD 
8D 21 DO A393 21 8D 
A939 88 8D 27 DB A9 
8a DB AS 82 SD Bi 
928 SD F8 A3 A2 3F 
9D 88 A4 CA 18 FA 
8D SA B2 A939 98 85 
88 85 42 AS 81 85 
BO 85 F8 A9 88 85 
8C 8D D5 CA AS 31 
ca A939 AB SD 88 82 
8D 88 DD 28 5A C8 
ns DA 28 AS Ce A9 
86 82 AD D7? CA 8D 
A2 81 86 
nA9 88 85 


28 
15 
98 
DO 
A939 
Ag 
9D 
43 
F? 
8D 
A93 
AD 


Br PORMBESNEL TER HZ DSH 


DO 
De 
8D 
Ag 
89 
88 
a9 
ng 
ng 


51 
4C 
48 


C1898 
c188 
C1998 
c198 
c1A8 
ciA8 
C1B8 
C1B83 
cica 
c1C8 
C1D8 
C1D8 
ciE®o 
CiES 
cCiF® 
ciıF8 
c288 
c208 
c218 
c218 
c228 
c228 
c2398 
c238 
c248 
c248 
c258 
c258 
c268 
c268 
c278 
c278 
c289 
c288 
c239 
c298 
c2A8 
c2A8 
Cc2B8 
c2B8 
c2ca 
c2C8 
c2D8 
c2D8 
C2E® 
C2E8 


73,83,75,86,59,70,69,?72 
?6,32,32,32,0,67,61 32 
68,56,68,73,82,69,87,94 
79,62,69,32,32,32,08,67 
61,32,93,98,90,46,,32,83 
80,69,73,67,72,69,62,78 
32,08,67,61,32,76,58,30 
46,32 ,76,65,68,69,78,0 
32 ,32,32,32,32,32,32,32 
32,32,32,32,32,8 


A4 FA Bi 4E 45 02 91 4E 33 
ac A9 C4 28 SB CS AD 87 5B 
Bi 4E On 08 5m 28 2m Sı 48 
4E 88 19 F4 AC A9 Ca 28 2A 
sB CS AB 28 BI dE MAACE SF 
Bl 4E 88 31 4E C8 CO 07 39 
Da FS 8A Si 4E AC M9 Ca BB 
A9 81 28 DE FF AS 13 28 co 
DE FF AS 42 SD @8 me n9 859 
DD 8D DB CE as 8ı en Ds AD 
CA 28 CS C? aD @8 AB 85 SF 
42 A9 08 8D DB CE 8D 86 18 
v2 A9 92 28 De FF ac 82 89 
ci As 18 28 De FFacmas 81 
Ci A9 GE 85 Da ns oA 85 Si 
DE 28 10 ES 28 Fa ca 85 47 
42 ac 62 Ci MD DS CA 85 B4 
B2 AS 84 ED DS Ca AS I? ED 
85 DE A9 93 85 03 2u 18 11 
ES A9 FA AB CO 2B A9 CS IF 
AS 22 AB Ca 28 AS cs AS F3 
BE SD D3 CA 28 cs cr As BA 
Bi M2 08 MB Si 28 BAFF ca 
Aa 10 mA2 DB ES FB Ca 8 Si 
BD FF 28 CO FF nS 88 28 5D 
Bi FF A3 61 28 93 FF A9 DD 
00 20 MS FF AD DI Ca 28 er 
AB FF AS F?7 85 dE AS FS 3B 
85 4F MA2 88 md 88 BI 4E DI 
86 60 20 AB FF AB 60 CS SF 
De F4 ES 4F CA D8 ED AS 58 
81 28 Ca FF AS 82 sp DS 88 
CA 4C SE CO AD DS Ca 8s 39 
e2 A9 84 @8D DS Ca As ı? ED 
85 DE A9 89 85 03 28 18 ii 
ES A9 10 mnB ca 2a AI c8 37 
AS 22 Ma Ca 28 MS ce nS F3 
BE 8D D3 Ca 28 C5cC7 as on 
v2 mn2 08 MB 008 28 BA FF 84 
A9 10 A2 DB Es rB ca 28 Sı 
BD FF A9 O8 AB FrAA FB ca 
28 05 FF AS 02 SD DS ca 26 
AS 88 85 42 AC SE ce 28 79 
58 CS AB 87 A9 88 Si 4dE BF 
88 1B FB AC 82 Ci 28 sa 88 
CS AB 87 Bi 4E 43 FF SI EE 
4E 88 18 F? AC A9 CA 28 27 
sd CS AB 97 a2 8 AI 4E 18 
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WNSSEHETENELTER N SID. SO 


MN MORE TERROR. DB. ZU 
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SOFT-TEAM-BERLIN 


Software und Zubehör für 


[C-64 Atari] Schneider] 
Spectrum | MSX| 


Über 2000 Programme immer auf Lager. 
Ständig die neuesten Programme aus England und 


Gratiskatalog anfordern: 
Anton Peter & Partner, Kamminerstraße 9 
1000 Berlin 10, Telefon 453 27 11 
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DEE FERN ON 


AS-A 2480 
Akustikkoppier 
ea: z 
@\o 

® Otme FTZ Ne 


AS-A 2480: 


Telekommunikations-Komplettpaket 
Akustikkoppler AS-A 2480 anschlußfertig + Ne und Terminalsoftware 


Für Commodore waicö4 ra DM 188,— 
Für Apple ı1e,11+ DM 228,— 
Für Schneider crc 4 DM 248,— 


In der BRD einschließlich W-Berlin fernmelderechtliche Genehmigung 


e Berghausen 13 
arrufen och Telefon (0291) 1221 


188 
118 
120 
130 
148 
150 
1608 
178 
1808 
198 
208 
218 
220 
238 
248 
238 
268 
278 
288 
298 
309 
318 
328 
339 
348 
3358 
368 
378 
388 
398 
499 
418 
428 
438 
448 
450 
468 
478 
468 
490 
509 
518 
528 
530 
548 
558 
589 
578 
588 
538 
se 
818 
628 


SYS9#4896 
‚OPT 00 
*:4C008 


Er 


ZEICHEN - EDITOR 
VoN 


ANDREAS WELLIE' 
SONDERFELD 8 
43989 ESSEN 14 


BELEGUNG DES SPEICHERS 
PROGRAMM SC088-2CD48 


BENUTZTE SPEICHERSTELLEN 
IN DER ZERO-PAGE 


s82 AKTUELLES BIT 

s3C VERSCHIEDEN 

53D- ZEICHENSATZ AUF BILDSCHIRM 

48 

s41 VERSCHIEDEN 

#42 NR. DES AKTUELLEN ZEICHENS 

343 STELLUNG DES MENUES 

s49- ZEIGER ZUM Z.-COP,Z.-TAUSCH 

s4A OR-VERKNUJE. ‚VERTIKALSPIEGE. 
& MENU AUSDRUCKEN 

s4E- ADRESSE DES AKTUELLEN 

s4F ZEICHENS 

sF7- ADRESSE DES ZEICHENSATZES 

*F8 IM SPEICHER 

*F9 X-POSITION DES CURSORS 

sFA Y-POSITION DES CURSORS 

sF8 IM SPEICHER 


INITIALISIEREN 


ne 


“ 
o 
a 


RESET 

LDA W388 : STA $D828 » FARBEN 
' sTAa 0821 

LDA #381 : STA 30815  SPRITE- 
LDA #888 ı STA #0827 ı) DATEN 
LDA #152 :ı STA 0888 ı SETZEN 
LDA #138 : STA 208081 

LDA #398 :ı STA $A3F8 

LDX #63 it LDA #888 ;» SPRITE 
MOBCLR STA 3N488,% 3 LOSCHEN 
DEX : BPL MOBCLR 


HN IORELEN TERN OR.D. DOM 


639 
548 
e58 
[1 
878 
888 
699 
788 
718 
7-28 
738 
748 
758 
768 
778 
788 
798 
880 
818 
828 
838 


LDA #398 ı STA 658 3 KEYREPEAT 
LDA #308 : STA sS3D » PRGKONTROLLE 
LDA #488 :ı STA 242 ı ZEIGER 

LDA #381 : STA 343 + ZEIGER 

LDA #176 : STA 2F8 ; FUER 

LDA #388 : STA $F7? » 2Z-EDITOR 


LDA #148 ı STA SATZ+1 

LDA #"1" : STA BEREI 

LDA #168 : STA 648 » VIDEOCHIP & 
LDA #149 : STA #DD88 ) AUSGABE 

B AUF 58008 

, 

JSR IRGEIN » RASTERINTERRUPT SETZEN 
’ 


F 
’ EDITIEREN 
3 


, 

EDIT LDY W>TEXT2 : BILD AUFBAUEN 
LDA #<TEXT2 

JSR ABDR 


848 LDR W398 : STA 646 

858 EDITI LDA BEREI : STA sAairF2 

858 LDX #881 ı STX SF9 CU. X-ACHSE 
878 LDY W588 ı STY SFA CU. Y-ACHSE 
888 LDA W480 ı STA #82 

8938 JSR 2SB » ZEICHENS, AUSDRUCKEN 
988 JSR ZDRUCKEN > VERG. ZEICHEN AUSGE. 
919 JSR HEX » HENZAHL AUSGEBEN 
928 JSR MENU » MENU AUSDRUCKEN 

9338 JMP HOME ’ CURSOR HOME 

948 ; 

958 + ZEICHEN VON TASTATUR HOLEN 

969 + & AUSWERTEN 

9708 ; 

999 GETKEYT JSR GETCHAR 

998 LDX #48 

1888 AUSWI CMP BEFEHLE,K 

ı81l® BEO AUSW2 "BEFEHL ? 

1828 DEX 

1838 BPL AUSWI ’ *BEFEHLSLISTE ENDE ? 
1848 JMP GETKEY 

1858 AUSWE TAY 

1868 LDA LOW,X +SPRUNGADRESSE LOW-BYTE 
1878 STA JUMP+1 

1888 LDA HI.X ’SPRUNGADRESSE HI-BYTE 
1898 STA JUMP+2 

1188 TYA 

1118 JUMP JMP 50088 ’ BEFEHL ANSPRINGEN 
1120 >» 

1138 » ENDE 

1198 3 

1158 Bi JSR RESET:JMP SE378B 
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>» 


RESET LDA #35 : STA #81 FROM AN 


LDA #199 ı STA SDD88 AUSGABE AUF 


LDA 4 ı STA 648 ı98008 
JSR SFDA3:JSR SFD15:JSR SEFSB 
RTS 
’ 
» CURSOR AUF HOMEPOSITION 
’ 
B2 NOP 
HOME LDN #s8n : STA 206 
LDA #385 :ı STA #03 
JSR 58648 
LDX #381 ı STX sF3 
LDY #388 ı STY sFffA 
LDY W388 :ı STY 82 
JSR 2SB 
JMP GETKEY 
’ 
> CURSOR RECHTS 
3 
83 LDX #9 
“29 
CURE 
“388 ı STA 
“381 : STA 
“385 ı STA 
BETKEY 
CURE INC #3 
INC 503 
LSR »o2 
JMP BETKEY 
’ 
» CURSOR LINKS 
’ 
84 LDxX #3 
“so 
tuLi 
“281 ı 5TA 
“#208 : STA 
#29C ı STA 
GETKEY 
CULI DEC $F9 
DEC #03 
ASL sB2 
JNP GETKEY 
, 
» CURSOR UNTEN 
’ 
B5 LDX FA 
EPX #207 
BNE CUUN 
LDA #388 : STA #FA 
LDA #35A ı STA #06 ı JSR 58648 
JMP GETKEY 
CUUN INC $0561.JSR 58648 
INC FA 
JMP GETKEY 
, 
3 CURSOR OBEN 
’ 
B6 LDX FA 
CPX #208 
BNE CUOB 
LDA #397 ı STA sFA 
LDA #811 : STA #06 t JSR 58648 
JMP GETKEY 
CUOB DEC #06: JSR 58648 
DEC FA 
JMP GETKEY 
» 
3 ZEICHEN PLUS 
’ 
B7 INC 542 
ZAB JSR ZDRUCKEN 
JMP HOME 
’ 
»’ ZEICHEN MINUS 
3 
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MINEN TER YORLD. COM 


B8 DEC #42 

JMP ZAB 

’ 

» PUNKT SETZEN B.2Z.W. LOESCHEN 
’ 

Bil JSR ZEICHEN 

LOY sfA 

LDA (S4E),Y 

EOR #82 

STA (B4E),Y 

JMP ERNEU 

’ 

’ ROTIEREN NACH LINKS 
’ 

Bi2 JSR ZEICHEN 

LDY #297 

RORE LDA ($S4E),Y 


(S4E),Y 


BPL RORE 

JMP ERNEU 

’ 

’ ROTIEREN NACH OBEN 
» 

813 JSR ZEICHEN 
LDY #399 

LDA (S4E),Y 

TAX 

ROUP INY 

LDA (84E),Y 

DEY 


STA <(B4E),Y 
InY 


CPY #397 

BNE ROUP 

TAA 

SsTA <M4E),Y 

JMP ERNEU 

’ 

# ZEICHEN AENDERN 

’ 

B14 LDA #*9* : JSR SFFD2 
“"m* : JSR SFFD2 
s2 : STA #A808 
#00 : STA SCED® 
“01 : STA LAENGE 
INPUT 
sABD88ı STA 42 
#388 ı STA SCED® 
848 
“'B* ı JSR sFFD2 
zAB 


ı INVERSES ZEICHEN AENDERN 
’ 


815 LDA W"g* : JSR SFFD2 : JMP Bi4 


’ 
» ZEICHEN NR. DEZIMAL EINGEBEN 


LDA #88E : STA 803 
H3an : STA 2086 
9648 

DEZ IMAL 

42 

ZAB 


» ZEICHENSATZ SPEICHERN 
’ 

B17 LDA SATZ+1 :ı STA 282 
LDA #132 » STA SATZ+1 
LDA #817 : STA 206 

LDA #389 ı STA #03 

JSR 58648 


H<TEXTS 

“>TEXTS 

ABODR 

W<TEXT? 

H>ITEXT? 

ABOR 

Wi4 ı STA LAENGE 

INPUT # NAME EINGEBEN 
HSB81:1L0X WS88:ıLDY W381 
sFFBA ı FILEPARAMETER 
“3108 

W<STRING: IN 

STRING 

sFFBD ; FILENAMENPARAMETER 
SFFCB > OPEN 

“288 : JSR SFFB1 3 LISTEN 
“3861 ı JSR #FF93 ı SEK.ADRESSE 
“88 ı JSR SFFAB 

ORGI : JSR sFFAS 

sF7 ı STA $4E 

»F8 : STA S4F 

“08 

LDY #308 

LDA (S4E>,Y 

2508: JSR SFFAB :LDX 388 


svi 
sar 


sve 

“#81 : JSR SFFC3 : CLOSE 
w2 : STA SATZ+1 

EDIT 


» ZEICHENSATZ LADEN 


LDA SATZ+1 :ı STA 82 
132 : STA SATZ+1 
#317 : STA 3056 

“389 ı STA #03 

59649 

#<TEXTS 

W>TEXTE 

ABOR 

W<TEXT? 

W>TEXT? 

ABOR 

#14 ı STA LAENGE 
INPUT 5 NAME EINGEBEN 
"282 ı LDX W308 ı LDY #398 
SFFBA ) FILEPARAMETER 
“18 

W<STRING ı IN% 
#>STRING 

sFF6D; FILENAMENPARAMETER 
“wo 

se? : LDY sro 

sFFD5 > LOAD 

se82 ı STA SATZ+1 

wa : STA 42 

EDIT 


» ZEICHEN LOESCHEN 
» 

B19 JSR ZEICHEN 
LDY 0397 

LDA #388 

ZELO STA (8S4E),Y 
DEY 

BPL ZELO 

JmP ZAB 

B 

3 ZEICHEN INVENTIEREN 
’ 

B29 JSR ZEICHEN 
LDY #387 

ZEIIN LDA (#4E),Y 
EOR #$FF 


Bi DONE LTERWOR.D. SO A 


STA (B4E),Y 

DEY 

BPL ZEIIN 

JMP ERNEU 

J 

3 ZEICHEN HORIZONTAL SPIEGELN 

3 

B21 JSR ZEICHEN 

LDY #397 : LDX #398 

HOSPI LDA (#4E,X) 

PHA 

LDA (824E),Y 

STA <S4E,X) 

PLA 

SsTA 

INC 

DEY 

DEY 

BPL 

JMP 

3 

3 ZEICHEN COPIEREN 

’ 

B22 LDA 842 : PHA 

JSR ZWEIIN 

sTAa s42 

JSR ZEICHEN 

LOY #287 

COPY LDA (S4E),Y 
(549) ,Y 


copy 


42 
EDIT 


»"ZEICHEN TAUSCHEN 

’ 

B23 LDA #42 : PHA 

JSR ZWEIIN 

SsTAa 42 

JSR ZEICHEN 

LDY #387 

TAUSCHEN LDA (S4E),Y ı TAX 
849) ,Y 
(24E),Y 
ı STA (849),Y 


TAUSCHEN 


>42 
EDIT 


» ZEICHEN VERTIKAL SPIEGELN 
3 
B24 JSR ZEICHEN 
LDY 4397 
vESPII LDA (#4E),Y 
LDXx #897 
VESPI LSR 
+43 
san 


VESPII 
ERNEU 


» ZEICHEN OR VERKNUEPFEN 
» 

B25 LDA 542 ı PHA 

JSR ZWEIIN 

sTa s42 
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zn 
pn Siikpede-pen - 


4260 
4238 
4398 
4318 
4328 
4338 
4348 
4350 
4369 
4370 
4388 
4338 
4480 
4418 
4428 
4439 
4448 
4458 
4468 
4470 
4488 
4438 
4588 
4510 
4528 
4538 
4548 
4558 
4568 
4578 
4588 
4598 
4808 
41618 
4828 
4630 
4640 
4658 
4669 
4678 
4698 
4630 
4708 
4718 
4728 
4738 
4748 
4758 
4768 
4778 
4788 
4738 
4898 
asıo 
4820 
4838 
4348 
4858 
4888 
4878 
4888 
4898 
4308 
4919 
4928 
4938 
4948 
4950 
4968 
4978 
4988 
4990 
sooo 
28 
so20 
soso 
so48 
seso 


JSR ZEICHEN 

LDY #287 

ORVER LDA (8349),Y 

ORA t24E),Y 

STA (849) ,Y 

DEY 

BPL ORVER 

PLA 

sTa 42 

JMP EDIT 

, 

» UM S8* NACH RECHTS DREHEN 
’ 

B26 JSR ZEICHEN 

LDY 4387 

REDRE2 LDX #597 

LDA (84E),Y 

REDREI LSR 

ROL SCEEd,K FZWISCHEN SPEICHERN 
DEX 

BPL REDREI 

DEY 

BPL REDRE2 

LDY #387 

REDRE3 LDA $SCEEB,Y FZURUECK- 
STA (B4E),Y ICOPIEREN 
DEY 

BPL REDRE3 

JMP ERNEU 

’ 

» PUNKT LOESCHEN & CURSOR WEITER 
’ 

827 JSR ZEICHEN 

PUWE LDY sfr 

LDA #82 

CPX #188 

BEG LOLE 

EOR #sFF 

AND <S4E),Y 

CPX #188 

BNE LOWEI 

LOWE ORA (#4E),Y 

LOLEI STA (S4E),Y 

LDA 503 : STA 845 

LDA s06 ı STA #46 

JSR ZDRUCKEN 

LDA #545 ı STA 03 

LDA #46 ı STA 06 

JSR 59648 

JmPp 83 

’ 

+ PUNKT SETZEN & CURSOR WEITER 
’ 

B28 JSR ZEICHEN 

LDX #108 

JMP PUWE 

» 

’ ZEICHEN EINE ZEILE HOCH 

3 

839 LDA #42 

SEC ı SBC #32 : STA 342 

JMP ZAB 

’ 

# ZEICHEN EINE ZEILE NACH UNTEN 
’ 

B31 LDA #42 

CLE : ADC W32 ı STA #42 

JmP ZAB 

’ 

# KLEINE ZEICHEN IN EDITORBERE ICH 
» COPIEREN 

‚ 

533 LDY #$08 ı STY #68 

LDOY #3E8 ı STY 35B 

JMP ROMRAMI 

’ 

’ 2S IN ANDEREN BEREICH COPIEREN 
’ 
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REN SEWREZSNISTERH ERTL. ES 


s068 
5078 
5888 
5938 
51988 
sıı18 
sı128 
5138 
5148 
s158 
5168 
5170 
5188 
5198 
5208 
s218 
s228 
s238 
s248 
s250 
s269 
s278 
s288 
3298 
5388 
5318 
5328 
5338 
5348 
3359 
5368 
5378 
5388 
5398 
54808 
5418 
54208 
5438 
5448 
5458 
3468 
5478 
5488 
5498 
5508 
5518 
5529 

5538 
s548 
5358 
3368 
s570 
5589 

5598 
56988 
5818 
5828 

5638 

5648 
5658 
5688 

5678 

5688 
5690 

5798 
s7ı8 

5728 
5738 
5740 
5730 

5768 
5778 

3788 
5798 

5888 

ss18 
5828 
5838 


LDA 842 :ı STA $SF 

JSR ZWEIIN 

cm a2 

BCS 2C7 

JMP EDIT 

2C7 STA 868 ı INC #68 

205 JSR ZEICHENILDA #AIF2 

cHmPr mrı* 

BEQ 2ce2 

LDA $4F ı SEC : SBC #888 : STA 353 
JMP 2C3 

2C2 LOA $S4F:CLCıADC #$88:STA #59 
2cC3 LDA S4E ı STA 358 

LDY #487 

2C4 LDA (S4E),Y ı STA (858),Y 
DEY : BPL 2c4 

INC $42 : LDA 368 : CMP s42 

BNE 205 

LDA s5F : STA s42 

JMP EDIT 


» 28 STARTADRESSE + 
, 

835 LDA ORGI 

ELC : ADC #308 

STA ORGI 

JSR HEX 

JMP GETKEY 

’ 

» 25 STARTADRESSE - 
’ 

838 LDA ORGI 

SEC ı SBC #398 

STA ORGI 

JSR HEX 

JMP GETKEY 

’ 

» ZEICHENSATZ TEXTPROBE 


837 LDA SATZ+1:ı5TA SATZ 
LDA #388 : STA 33248+21 
LDA #"ü" ı JSR SFFD2 
TE2 JSR GETCHAR 


TEI LDA #132 : STA SATZ 
LDA n#81 : STA S3248+21 
JMP EDIT 


’ ANDEREN BEREICH WAEHLEN 
’ 

838 STA BEREI 

SEC : SBC 4831 

TAX 

LDA MEM,X 

sTAa #F8 

LDA POS1,x 

STA SATZ +1 

JMP EDITI 

’ 

» MENU-SEITE WECHSELN 

’ 

B48 LDA #43 

Chr #81 

BEQ MESC 

LDA #881 

JMP MESCI 

MESC LDA "sr 

MESCI STA 243 

JSR MENU 

JMP BETKEY 

’ 

»  UNTERPROGRAMME 

3° 
’ 
ı VERGROESSERTES ZEICHEN DRUCKEN 


8598 
6698 
8618 


» & CURSORPOSITION ZWISCHEN- 
’ SPEICHERN 

3 

ERNEU LDA 303 : STA 345 

LDA #086 : STA 8246 

JSR ZDRUCKEN 

LDA #45 ı STA #03 

LDA #46 ı STA #06 

JSR 58848 

JMP GETKEY 


’» NR. EINES ZWEITEN 2EICHENS EIN 
’ 

ZLEIIN JSR ZEICHEN 

LDA M4E : STA 349 

LDA S4F ı STA 84A 

ZLEIINI LDOA #16 : STA #03 
LDA #16 : STA 506 

JSR 58648 

LDA #" " ı STA STRING+I 

STA STRING+2 ı STA STRING+3 
LDA #383 : STA LAENGE 

JSR INPUTI 

LOX #303 

TRANS LDA STRING,X 

STA 41373,% 


’ DEZIMALZAHL EINGEBEN 

» & NACH HEX UMRECHNEN 

‚ 

DEZIML LDA #883 : STA LAENGE 
JSR INPUT 

DEZ IML2 LDA S42 ı STA COUNTER 
LDY #92 

DEZ II LDA 41374,Y 

crmP H4208 

BNE DEZI2 

DEY 

BMI TAU 

BPL DEZII 

DEZIZ AND "sor 

STA COUNTER 

DEY 

BMI TAU 

LDA 419374,Y 

AND #$OF 


EPX #208 
BEQ DEZI4 
DEZ13 LDA COUNTER 


BNE DEZ13 

DEZ 14 DEY 

BMI TAU 

LOA 41374,Y 

AND #$8F 

TAX 

CPX #508 

BEG TAU 

WAHLSE LDA COUNTER 
CLC 

ADC #188 

STA COUNTER 

DEX 

BNE WAHLS 

TAU LDA COUNTER 
RTS 


» ADRESSE DES AKTUELLEN 
3 ZEICHENS ERRECHNEN 
, 


Bi MOREBICEHPLTER N ZRLD Su 


66208 
6638 
66548 
6658 
6668 
8678 
6688 
6698 
6708 
8718 
8728 
8738 
6740 
67598 
6768 
8778 
6768 
67938 
6898 
gs18 
gs 
68838 
8948 
8958 
6968 
8378 
6838 
6838 
6998 
69198 
6928 
6938 
6948 
6958 
6968 
5978 
5988 
6938 
7888 
7818 
7828 
7838 
7948 
7958 
70698 
7878 
7888 
7898 
7188 
7ı18 
?ı128 
7138 
7148 
7158 
7168 
7178 
7188 
7199 
?288 
-2ı8 
’220 
-230 
-a4d 
‚258 
7268 
7278 
7288 
?-298 
7388 
7318 
?328 
7330 
7348 
7358 
73608 
7378 
7388 
73930 


ZEICHEN LDA sF7 : STA #4E 
LDA $sF8 : STA s4F 
LDA #508 

LDX #200 

ZEII CPX #42 

BEQ ZEI3 

CLC ı ADC #888 
BNE ZEI2 

INC s4F 

ZEI2 IN 

JMP ZEII 

ZEI3 STA S4E 

RTS 

’ 

» ZEICHEN VERGROESSERT AUSGEBEN 
’ 

ZDRUCKEN JSR ZEICHEN 
LDA #$0A : STA $06 
LDAa #885 : STA #03 
JSR 358548 

LDY 1588 

SsTr s41 

SETBIT LDA #388 
sTAa SC 

GETBIT LDA (S4E),Y 
AND #3C 

BNE PUNKT 

LDA W* 

JMP DRUCKE 

PUNKT LDOA #"e" 
DRUCKE STY #41 

JSR SFFD2 


LDA #285 ı STA 503 
JSR 386408 

LDY 341 

JMP SETBIT 

STOPP LDY #>TEXT4 ’HI-BYTE TEXT4 
LDA #<TEXTA4 

JSR ABODR 

LDA #55 ı STA #81 
LDX #42 :ı LDA #388 
JSR sB0CD 

LDA #54 ı STA 8381 
JSR SPRITON 


’ ZEICHEN IN SPRITE COPIEREN 
3 

SPRITON LDY #387 : LOX #23 
SPRITSE LDA (S4E),Y : STA #A4088,X 
DEX ı DEX ı DEX 

DEY 

BPL SPRITSE 

RTS 

’ 

» ZEICHENSATZ AUF BILDSCHIRM 
3 DRUCKEN 

’ 

z2sB LDA 4294 :ı STA 530 

D sTa sarf 

LDA #sAB8 : STA s3E 

LDA #308 : STA 348 

LDX #388 

zSBl LDY 4588 

2sB2 TXA 

STA (83D),Y 

crP 242 
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>» 


BNE 25B4 

LDA #298 

JMP 25BS 

25B4 LOA #893 
2583 STA (83F),Y 


2SB3 LDA 4244 

Chr #30 

BNE 25B1 

RTS 

’ 

? MENJE DRUCKEN 

’ 

MENU LDA #<TEXTI : STA #49 
LDA W>TEXTI : STA 4A 
LDA #587 ı STA 646 
LDX #43 

LDY #388 

MENUJI LODA (#49),Y 
BNE MENJ2 

DEX 

BEQ MENJ4 

MENU2 JSR MENU3 

JMP MENU I 

MENU4 JSR MENU3 

LDA #$089 :ı STA 06 
MENUS LDA #315 ı STA 503 
JSR 58648 

MENUS LDY #388 

LDR (#49),Y 

BEG MENU? 

JSR SFFD2 

JSR MENUS 

JMP MENUS 

MENU? JSR MENU 


"388 : STA 646 

SF9 :ı CLC : ADC #894 
203 

Sen : CLC : ADC #89A 
306 

58848 


MENUS INC #49 

BENE MENUS 

INC aA 

MENUS RTS 

’ 

+ ZEICHENSATZ ROM -> RAM 
’ 

832 LOY #208 :ı STY #698 
LDOY #208 : STY #S5B 
ROMRAMI LDX #88 ı STX 55F 
LDX #388 : STX s5A 
LDOX #588 : STX #358 
LDA sF8 

ELC : ADC #508 

SsTA #59 

sel 

LDA #333 : STA 81 

JSR SA3BF 

LDA #54 :ı STA #81 

cLi1 

JMP EDITI 
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IN SEREZSSENIITERRUOR DB. ZIM 


8208 
8218 
s228 
9239 
9248 
8258 
8268 
8278 
8288 
8238 
8308 
8318 
8320 
8339 
8348 
83508 
83608 
8378 
8389 
8338 
8488 
8418 
8420 
8438 
8448 
8450 
8460 
8478 
9488 
8498 
9588 
8518 


83598 


3 
; DIRECTORY LESEN 


3 

893 LDA 4$17 ı STA 308 

LDA #588 :ı STA 303 

JSR 58648 

LDOX #<DIRE:STK BB 
#>DIREIıSTY S5C 
#s01:5TA #87 


DIRI STY SFB 
JSR 
sTA 


“55 ı STY 581 
SBDCD 
54 ı STA 881 
„20 
FFD2 
DIR3 JSR SFFAS 
LDX 598 
BNE DIR4 
TAX 
BEG DIR2 
JSR sFFD2 
DIR? JMP DIR3 
DIR2 LDY #817 ı STY $06 
JSR GETCHAR 
crP #303 
BNE DIRS 
JMP DIR 
DIRS LDA #13 
JSR »FFD2 
LDY #382 
BNE DIRI 
DIR4 JSR #F842 
JMP EDIT 
’ 
DISK - BEFEHL 


LDA #817 ı STA 506 
#388 ı STA 303 

58848 

“">" ı JSR SFFD2 

#14 :ı STA LAENGE 
INPUT 

*” ” 

STRING+1 

COMEND 

NSB1ILODX HSO8:LDY HOF 
SFFBA » FILEPARAMETER 
LAENGE 

H<STRING: INX 
N>STRING 


SFFBD 5 FILENAMENPARAMETER 


SFFCO » OPEN 


#508 : STA 152 KANAL ZU 


COMEND JMP EDIT 
’ 


DISK STATUS 


B293 LDA #817 : STA 06 
LDA #388 : STA 303 
JSR 58848 

LDA #388 ı STA $8A 
JSR SFFB4 

LDA W$6F ı STA #89 
JSR SFF36 

STATUSI JSR SFFAS 
cMP H$80 

BEG STATUS2 

JSR SFFD2 

JMP STATUSI 
STATUS2 JSR 

JSR GETCHAR 

JMP EDIT 

2 


» CUSOR BLINKT UND WARTET 
» AUF EINGABE EINES ZEICHENS 
» ZEICHEN WIRD IM AKKU UEBERGEBEN 


’ 
GETCHAR LDA #888:5TA 212 
sc 
scc 
2932 
GETCHAR 5 "TASTE GEDRUECKT ? 


scF 
PUFFER 7 "CURSOR IN BLINKPHASE? 
SCE 
20287 
3908 
scr 
SER13 
PUFFER JSR SESB4 
RTS 
’ 
’ INPUT - ROUTINE 
’ 
INPUT LDA #”" ":LDX wı14 


FILLST STA STRING,X 
DEX ı BNE FILLST 


INPUTI LDX ##81:ıSTX STELLUNG 
TASTE JSR GETCHAR 
cm 3 | Bor RUN STOP ? 
BNE RETURN 
LDA #388 : STA SCED® 
LDA #92 ı CMP #138 
BCC INSTOP 
STA SATZ+1 
INSTOP JMP EDIT 
RETURN CHMP #13 3" RETURN ? 
BNE RECHTS 
RTS 
RECHTS CHP "ur" RECHTS ? 
LINKS 
STELLUNG 
LAENGE 
TASTE 
STELLUNG 
+03 
TASTE 
LINKS CrP #'" " 
BNE NUM 
LDA STELLUNG 
cCmP #801 
BEQ TASTE 
DEC STELLUNG 
DEC #03 
JMP TASTE 
NUM CMP #32 : BCC ALL 
CHhP W936 ı BCC AN 
CMP #168 ı BCS AN 
ALL JMP TASTE 
AN LDX STELLUNG 
STA STRING,K 
INC STELLUNG 
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JSR #FFD2 
LDA #888 ı STA 212 
LDX LAENGE ı IN% 
CPX STELLUNG!BNE TU 
DEC STELLUNG:DEC 503 
TU LDA #$0D 
CHP SCEDO 
BNE TW2 
LDA #AB88 :ı STA 42 
JSR ZEICHEN 
JSR SPRITON 

JMP_ TASTE 
’ 
’ 
’ INTERRUPT AENDERN 
’ 
IRGEIN SEI 


SsTA 48314 

LDA WISTART 

STA 58315 

£L1 

RTS 

’ 

» INTERRUPTROUTINE 

’ 

START LDA #0819:5TA 0919 


’ ROM AN & TEXT DRUCKEN 

’ 

ABOR PHA: LOA #55 ı STA WBl:PpLA 
JSR sABIE 

LDA #534 ı STA #81 

RTS 

’ 

» HEXADEZ IMAL AUSDRUCKEN 

’ 

HEX LDA ORGI 


ıLSR !LSR 


HEXI SEC 
Sec N809 
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18528 HEX2 STA SA2IF,K 11278 LDOA SF8 ı: STA 346 


18538 RTS 11288 LDA #s#F6 ı STA #4 

10548 5 11298 LDA #818 : STAa 843 

18558 > TEXTE 11398 DAMAI LDA #<CUHO:LDY M>CUHO 

1568 7 11318 JSR ABIE 

18578 TEXT2 .BYTE 13,8:1.ASC "tag" 11328 LDX #49 ı LDA AA 

18580 .ASC pr ———— rt " 11338 JSR $BDCD 

108598 .BYTE 13:,ASC "mm I Nah: 11348 LDA W"D" ı JSR SFFD2 

10688 .BYTE 131.ASC "m 11358 LDA N#’4" : JSR sFFD2 

18618 .BYTE 13:,ASC "ame IB. 11" 11368 LDY #398 

10628 .BYTE 13:,ASC "mamma! I » 113708 DAMM2 LDA #534:5TA #81 

18638 .BYTE 13:.ASC "am 159080 |” 11388 LDA (345) ,Yı 

10648 .BYTE 13:1.ASC "mi m" 11398 PHA:LDA #55:STA #B1:PLA 

18658 .BYTE 13:.ASC "mm ı2n r 11488 TAX 

19668 .BYTE 13:.ASC "mem HH" 11418 TrAa : PHn 

18678 .BYTE 13:.ASC mm + 11428 LDA #398 

18688 .BYTE 13:.ASC "RSR/CLR/HOME” 11430 JSR *BDCD 

18698 ‚BYTE 13:.ASC "MMER: P. SE/LOE*” 11448 PLA : TAY 

10788 .BYTE 8 11458 INY : CPY 4398 

18718 7 11468 BEQ DAMA3 

18728 ı 11478 LDA #",* : JSR SFFDB 

187308 TEXTA .ASC "ee 114889 JMP DAMA2 

10748 .ASC "EM MEN" : .BYTE 8 11498 DAMA3 LDA #<SYS : LDY W>SYS 

10750 7 11588 JSR #ABIE 

19768 TEXTS .ASC "ZEICHENSATZ SPEICHERN* 11518 LDA #13 : STA 634 : STA 635 

18778 .BYTE 9 11528 LDA #385: STA 198 

18780 » 11538 RTS 

18798 TEXTE .ASC "ZEICHENSATZ LADEN" 11548 NEXT INC #493 

10888 .BYTE 8 11558 BNE DAMas 

18818 3 11568 INC aA 

10828 TEKT? .BYTE 13:.ARSC "nBuNAmE : " 11578 DAMA4 LDA #49 

18838 .ASC * .2" 115988 CMP_ #218 

18848 „ASC "UEEEEEEEEEREEE" 11598 BEQ DAmAs 

108858 .BYTE 8 11688 LDA 245 

18868 + 11818 CLC : ADC Ms08 

18878 3 11628 STA #45 

108888 + DATEN 11638 BCC DAaMmASs 

18888 > 11648 INC 248 

18988 BEFEHLE ‚.ASC "fy : „":,BYTE 13 11658 DAMAS JMP DAMAI 

18918 .ASC "*t.>,- KIIHCTVOD" 11668 DAMAS JMP #C098 

18928 .nSC " A@/-LiEme* 11678 ı 

189308 LOW .BYTE <B1,<B2,<B3,<84,<85 11688 SYS .BYTE 19:,ASC *"S B2945:.BYTE 8 

18948 .BYTE (B$,<B7,<B8,<B9,<B18 11698 CUHO .ASC "mi" : „BYTE 0 

18958 .BYTE <Bi1,<Bi2,<B13,<B14,<B15 11788 » 

189608 .BYTE <616,<B17,<B18,<B19,‘B28 11718 » 

18978 .BYTE <B21,<B22,<B23,<B24 ,<B25 11728 3 

189888 .BYTE <B26,<B27,<B28,<B23,(B38 11738 TEXTIi .BYTE 8 

189988 .BYTE <B31,<B32,(B33,<834,<B33 11748 .ASC *"@/ı) Z. WAEHLEN *":,BYTE 8 

11888 .BYTE <B36,<837,<B38,<838,<839 11750 .ASC ",ıNR. DEZ.EINGEBEN":.,BYTE 8 

11818 .BYTE <B48 11768 .ASC ".:ZEICHEN EINGEBEN*:ı.BYTE 8 

11828 HI .BYTE >B1,>B2,>B3,>B4,>85 11770 .ASC ">iINV. Z. EINGEBEN*":,BYTE 8 

11838 .BYTE >B6,>B7,>B8,>B9,>B1® 11788 ‚.ASC *"SPACE:P. LOESCHEN":.BYTE ® 

11848 .BYTE >B11,>B12,>813,>814,>B15 11798 .ASC "SH.SPACE:P. SETZEN*":.BYTE 8 

110858 .BYTE >B18,>B17,>B18,>B19,>8208 11888 .ASC *"t:HOCHROTIEREN "1.BYTE 8 

11868 .BYTE >B21,>B22,>B23,>824,>B25 11818 .ASC "+:LINKSROTIEREN "1.BYTE 8 

11878 .BYTE »>B26,>B27,>B28,>B29, >830 11828 .ASC "I: INVENTIEREN "1,BYTE 8 

11888 .BYTE >B31,>B32,>833,>834,>835 11838 .ASC "H:HORIZONTAL SPIE.*"ı.BYTE 8 

11098 .BYTE >836,>B37,>B38,>838,>839 11848 .ASC "V:ıVERTIKAL SPIEG."ı.BYTE 8 

11188 .BYTE >848 11858 .ASC "D:198' RECHTSDREHEN*":.BYTE 8 

11118 MEM .BYTE 176,184 11860 .ASC "CıZ. COPIEREN’ı,BYTE 8 

11128 POSI .BYTE 140,142 11878 .ASC "T:2. TAUSCHEN’:.BYTE 8 

11138 ORGI .BYTE 32 11888 .ASC "O:OR-MIXEN "1,BYTE 8 

11148 ZEILE .BYTE 1,128 11898 .ASC "£ıZ.-PROBE ":,BYTE 8 

11158 SATZ .BYTE 132,148 11998 .ASC "+-1Z2-ADRESSE AEND.*"ı.BYTE 8 

11168 DIRE .ASC *"#* 11918 .ASC "12:12-SATZ TAUSCHEN": ,BYTE 8 

11178 BEREI NOP 11928 .ASC "FZıNOR.Z. -> RAM "ı,BYTE 8 

11188 COUNTER .BYTE 8 11938 „.ASC "Fa4tKLE,Z. -> RAM "ı1,BYTE 8 

11198 LAENGE ‚BYTE 8 ) 11948 „ASC *"FS:2.IN AN.BEREICH":.BYTE 8 

11288 STELLUNG .BYTE 8 119858 .ASC "F7:DATAZEILEN ERS. *:.BYTE 8 

11216 STRING .ASC *"s ız= 11988 .ASC *C= E1DISKSTATUS "i,BYTE 8 

11228 ı 11978 .ASC *C= CtiDISKBEFEHL "1.,BYTE 8 

11238 5 DATAZEILEN VON ZE ICHENSATZ 11988 .ASC "C= DIDIRECTORY "1,BYTE 8 

11248 3 11998 .ASC "C= Sı2. SPEICHERN *:.BYTE 8 

11258 839 JSR RESET 120888 .ASC "C= L:Z. LADEN":,BYTE 8 

11268 LOn #F7 ı STA 345 12818 .ASc * ":.BYTE 8 
READY. 
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BE RESCUE TRUE TRLD 2 


Am einfachsten bestellen Sie 
mit diesem Coupon 
Ausfüllen, abtrennen und 
ausreichend frankiert im 
Kuvert ab die Post an: 
CW-Publikationen 

Vertrieb RUN 

Postfach 40 04 29 

D-83000 München 40 


NUN MOMEBLSNIET 


Ich verschenke RUN zum Bezugspreis von DM 58,— 
(12 Ausgaben), inkl. MwSt. und Lieferung „frei Haus" 
Auslandsendpreis: DM/sir 66,— 

Luftpostversand auf Anfrage 


Adresse des Bestellers (Rachnungsanschrift) 


Name Vorname 


Vorname 


Name 


Macht Spaß, ist nützlich 

» und kommt 12 mal pro 
Jahr ins Haus. Ein 

Geschenk mit bestem 

Erinnerungswert. 


PUBLIKATIONEN 


Eine Erste Adresse für die Computerweit 


Koeschen Alio Bestellcoupon 


Laufzeit des Geschenkabonnements: 


Das Abonnement soll sich nach einem Jahr 
automatisch um weitere 12 Monate verlän- 
gern, wenn es nicht acht Wochen vor Ablauf 
gekündigt wird. 

Das Abonnement soll aufein Jahr (12 Ausga- 
ben) begrenzt sein 


Garantie: 

Ich weiß, daß ich diese Vereinbarung innerhalb von 
8 Tagen bei der Bestelläadresse widerrufen kann. 

Zur Fristwahrung genügt die rechtzeitige Absendung 
des Widerrufs, Ich bestätige dies durch meine zweite 
Unterschrift 


Unterschrift 


Gewünschte Zahlungsweise: i 


[] Bequem und bargeldlos durch Bankabbuchung 
Geldinstitut 


Bankleitzahl (vom Scheck abschreiben) 


Kontonummer/Inhaber 


Gegen Rechnung, zahlbar sofort nach Erhalt 


Hardcopv 


groß rausgebracht 


Das Problem ist sicherlich schon 
jedem einmal begegnet, der eine 
hochauflösende Grafik ausdruk- 
ken wollte: In bezug auf den Mal- 
komfort bieten die heutzutage auf 
dem Markt befindlichen Malpro- 
gramme höchste Leistungen. 
Doch kaum ein Malprogramm be- 
sitzt auch eine gute Hardcopy- 
Routine. Bei Dia-Shows liegt die 
Sache ähnlich. Auch hier; Weit 
und breit keine für diesen speziel- 
len Fall passende Druckroutine 
zur Hand. Etwas besser hatten es 
da nur die Besitzer von SIMON'’s 
Basic mittels des implementierten 
COPY-Befehls. Doch abgesehen 
von der bescheidenen Bildgröße: 
Dia-Show-Bilder auszudrucken 
war immer noch kompliziert ge- 
nug: Originalbild auf andere Disk 
kopieren, mit einem Diskmonitor 
die Startadresse auf $EO000 än- 
dern, SIMON'’s Basic laden ... 
und so weiter. 


Laden und Drucken 
von Diskette 


Doch damit ist jetzt Schluß: das 
Programm ENLARGED PRINT 
lädt und druckt jede als Pro- 
grammfile abgespeicherte Grafik 
(von der Diskette) aus. Mit den 
Druckern MPS801, VC1525 und 
kompatible (Seikosha) sowie mit 
Epson-kompatiblen Druckern, die 
mittels Merlin-Interface ange- 
schlossen wurden, gibt es kein 
Problem. Außerdem arbeitet EN- 
LARGED PRINT mit den meisten 
Basic-Erweiterungen zusammen, 
da die Maschinenprogramme im 
Kassettenpuffer und im freien Ba- 
sic-Speicher ab dez.10496 unter- 
gebracht werden und kein Zwi- 
schenspeicher benötigt wird. Das 
ist nur möglich, weil die errechne- 
ten Bytes unmittelbar zum Druk- 
ker gesendet werden. Vor dem 
ersten Lauf sollte das Programm 
unbedingt abgespeichert werden, 
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da es die Zeiger auf das Pro- 
gramm-Ende verändert. Das ist 
wichtig, um die Print-Routine vor 
dem Überschreiben durch Varia- 
blen zu schützen. 

Nach dem Start liest der Compu- 
ter die DATAs, die gleichzeitig 
durch Prüfsummen auf ihre Kor- 
rektheit untersucht werden, und 
blendet dann ein Menü ein. Man 
hat nun die Möglichkeit, entweder 
Fl (INVERT), F3 (LOAD), F5 (DI- 
RECTORY) oder RETURN (PRINT) 
zu drücken. 


Drückt man Fl, so wird eine ab 


Hires-Grafik mit , Paint Magic" 


$E000 stehende Grafik invertiert. 
Dies geschieht innerhalb einer 
halben Sekunde. Nach dem er- 
sten Invertieren erscheint in der 
linken oberen Bildschirmecke ein 
Ausrufezeichen, um die erfolgte 
Invertierung anzuzeigen. Beim 
zweiten Invertieren verschwindet 
es wieder. 


Directory 
En Serra 


Nach Drücken von F3 erscheint 
die Aufforderung, die Diskette mit 
den Grafikfiles einzulegen und 
RETURN zu drücken. Jetzt er- 
scheinen nacheinander die Direc- 
tory-Einträge, und durch Drücken 
von N beziehungsweise Y kann 
man ein geeignetes File auswäh- 
len. 

Danach kann es die Meldung „No 
Program File" geben, die anzeigt, 
daß das ausgesuchte File nicht ge- 
laden werden kann. Im positiven 
Fall wird nach der Anzahl der zu 
überspringenden Bytes gefragt. 
Diese Frage ist notwendig, um 
eine hohe Kompatibilität zu beste- 
henden Grafiken zu gewährlei- 
sten. Meistens muß hier die vor- 
eingestellte „2" eingegeben wer- 


a 


den; man sollte also lediglich RE- 
TURN eingeben. Nur bei Grafiken 
des Programms PAINT MAGIC 
muß „116" eingegeben werden, 
da hier nicht die zwei Bytes über- 
sprungen werden müssen, die die 
Startadresse der Grafik angeben, 
sondern ein 116 Bytes langes 
Ladeprogramm. 

Übrigens ist die Länge des Grafik- 
files unwichtig; ist es kürzer als 
8000 Bytes, so füllt das Ladepro- 
gramm den Rest des Grafikspei- 
chers automatisch mit Nullen auf. 
Ist es dagegen länger, dann bricht 
das Ladeprogramm nach 8000 
Bytes automatisch ab. 

Doch trotz aller Kompatibilität soll- 
te man vorsichtig sein bei Grafi- 
ken, die mit „Blazing Paddles" 
oder dem „Koalapainter" erstellt 
wurden. Diese Programme spei- 
chern die Grafiken wegen ihres 
„Multicolor-Modus" etwas anders 
ab, so daß sie zwar geladen wer- 
den können, jedoch beim Aus- 
druck nicht das gewünschte Er- 
gebnis erzielt wird. Relativ gut las- 
sen sich einfarbige Grafiken aus- 
drucken. Die wenigsten Probleme 
machen die Bilder von Dia-Shows 
und von Paint Magic (siehe dazu 
auch die Bilder 1 und 2). Übrigens 
funktioniert ENLARGED PRINT 
auch einwandfrei mit Bildern, die 
mittels der Routine GRAFIK SPEI- 
CHERN aus der RUN, Heft 10/ 
1984, abgespeichert wurden. So- 
mit bietet sich ENLARGED PRINT 


aus einer Dia-Sh 


als (fast) ideale Ergänzung zu die- 
ser Routine an. Um mit dem Äus- 
druck beginnen zu können, ist RE- 
TURN zu betätigen, Vorher ist auf 
jeden Fall der Drucker einzu- 
schalten, da sonst das Programm 
mit DEVICE NOT PRESENT ab- 
stürzt. Die Print-Routine, die in Zei- 
le 36 mit SYS10496 aufgerufen 
wird, druckt eine im RAM ab 
$E000 liegende Grafik innerhalb 
von 13 Minuten (mit MPS 801; auf 
Epson-Kompatiblen mit Merlin-In- 
terface schneller) im Format DIN 
A4 quer aus. Da dieser Bereich 
mit dem Grafikspeicher von SI- 
MON'’s Basic übereinstimmt, kön- 
nen außer den von Disk eingele- 
senen Grafiken auch Grafiken 
ausgedruckt werden, die vorher 
mit SIMON’s Basic erstellt wur- 
den. Dazu muß lediglich unmittel- 
bar nach dem Start von ENLAR- 
GED PRINT die RETURN-Taste 
betätigt werden. 


Druck in der Mitte 
BEI 


Das Programm rückt die Grafik 
auf dem Drucker automatisch um 
32 Punkte nach rechts ein, um das 
Bild annähernd in Blattmitte zu 
drucken. Um diese Einrückung zu 
verändern, ist lediglich das 11. 
Datum in Zeile 98 von 32 auf einen 
anderen Wert zu ändern. Zulässig 
sind Werte von | bis 79, wobei 1 
das Bild an den linken und 79 es 


Dil FOREN TERRWORLD. SM 


an den rechten Blattrand druckt. 
Aber Vorsicht: Bei Ändern der 
DATAs sollte gleichzeitig auch die 
Prüfsumme in Zeile 18 verändert 
werden! 

Nun noch einen Tip für die Besit- 
zer von SIMON'’s Basic: Mit SI- 
MON'’s Basic kann die eingelade- 
ne Grafik auch während des 
Druckvorganges auf dem Bild- 
schirm gezeigt werden. Dazu sind 
folgende Zeilen einzufügen: 

19 HIRES0,1 

35 CSET2 

37 CSETO 

Aber Achtung: Diese Zeilen müs- 
sen mit SIMON's Basic eingege- 
ben werden, da sie sonst nicht in 
Tokens umgewandelt werden und 
bei einem Lauf zusammen mit SI- 
MON's Basic ein SYNTAX ERROR 
in diesen Zeilen angezeigt würde. 
Außerdem sollte die Zeile 19 weg- 
gelassen werden, wenn nur der 
Ausdruck von mit SIMON’s Basic 
erstellten Grafiken beabsichtigt 
ist, da eine vorhandene Grafik 
sonst gelöscht würde. 
MPS80]1-Besitzern, die sich keinen 
PRINT SHOP leisten können, sei 
hier eine Art Notlösung empfoh- 
len: Da ENLARGED PRINT die Bil- 
der im Querformat ausdruckt, ist 
es möglich, meterlange Transpa- 
rente zu erstellen. Wenn die Buch- 
staben des Textes mit einem be- 
liebigen Malprogramm auf meh- 
reren Grafiken hintereinander er- 
stellt werden (zirka zwei Buchsta- 
ben pro Grafik; Hintergrundfarbe: 
weiß) und dann nacheinander ge- 
laden und ausgedruckt werden 
(von hinten nach vorne; die letzten 
Buchstaben zuerst!), dann kann es 
klappen. Siehe dazu auch Bild 3. 
Zeilen 12 bis 18: 
Maschinenprogrammbereich vor 
Überschreiben schützen; Maschi- 
nenprogramme einlesen, Prüf- 
summen 

Zeilen 21 bis 33: 

Anzeige des Menüs; Verzweigung 
in die einzelnen Unterprogramme 
Zeile 31: 

Aufruf der Invertierungsroutine 
Zeilen 34 bis 41: 

Aufruf der Druckroutine und Ab- 
frage auf nochmaligen Programm- 
durchlauf 

Zeilen 42 bis 81: 

Directory-Routine (wenn D=—1,» 
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dann Directory-Funktion; anson- 
sten Verzweigung zur Laderouti- 


ne) 


Zeilen 82 bis 84: 
Aufruf der Laderoutine 


Daten für die Invertierungsroutine 


BOSDu2BuNn- 


15 


17 


SEREEEKEUTTRERETETERTTERRRERTERER 
REM sENLARGED PRINT»: 
REM #8 FOR THE MPS 881/’vcC1525 .. 
REM #ı cc) 7,7, 1985 BY! ”* 
REM #« GUIDO COENEN +. 
REM »u ALLENSTE INERSTRASSE 11 ..* 
REM #* 4048 GREVENBROICH 1 ”. 
REM »+ TEL.t <B2181)42206 *: 
BBEZEZZSTTESSTETTERTERTET TEE ETT 


REM ss» M - ROUTINEN EINLESEN ###%# 
POKE S3288,41POKE 53281 ,14:POKE 45,8t 
POKE 46,43:1CLR :5B=8 

A=B:FOR K=826 TO B88:READ SıA=n+sı 
POKE X,S:NEXT 

IF A<>5635 THEN PRINT * tBLK,RYSI 
WRONG DATA(S) IN INVERT ROUTINE I *: 
sTor 

A=8:FOR X=881 TO SS2:REAMD Sın=n+sı 
POKE X,S1ıNEXT 

IF A<>11487 THEN PRINT * tBLK,RVSI 
WRONG DATA(S> IN LOAD ROUTINE ! ": 
SToP 

A=Ö:FOR X=10496 TO 1881S:READ Stım=n+ 
SIPOKE K,SıNEXT 

IF N<>39333 THEN PRINT * {BLK,RVS) 
WRONG DATA(S> IN PRINT ROUTINE ı *ı 
STOP 

REM #+#2# INVERTIEREN, DRUCKEN ##+#+ 

D-B:PRINT "ICLR,BLK) * TAB (5) "GUIDO 
COENEN PROUDLY PRESENTS :* 

PRINT TAB<7)*LDOLNJENLARGED GRAPHICS 
PRINTING* 

PRINT TAB<7>*CFi = INVERT GRAPHIC 
PAGE)>* 

PRINT TAB(E)I"<F3 = CHOOSE A PICTURE 
FILE)® 

PRINT TAB(12)*(FS = DIRECTORY)* 

PRINT TAB<S>"FOR THE PPS-881 MATRIX 
PRINTER* 

PRINT "IDOLN,3SPACESICGRAPHICS START 
ADDRESS : 37344 )* 

PRINT TAB<S)*[DOWNITURN ON THE 
PRINTER I!" 

PRINT TAB(S>*<RETURN> TO CONFIRM 
PRINTING” 

GET AsılF ASCHCHRS (13) THEN IF LEISZ 
tFI]l” THEN IF ASc>"tF3]* THEN IF As<> 
"[FS)* GOTO 38 

IF A&=CHRS$ (133) THEN SYS 828:60T0 230 
IF As="[F3)* GOTO 43 

IF As="{FS]" THEN O=-1:16070 43 

PRINT TAB<189"TDOWNJOK I* 

OPEN 4,410PEN 6,4,61PRINTHS ,CHR$ 
“18):CLOSE G:PRINTH4,CHR$ (9):5Y5 
19496 

OPEN 4,4: PRINTHA ,CHR& “15):CLOSE 4: 

PRINT "ICLR,DOWNI ANOTHER PICTURE 
(Tin) 7" 

GET AsılIF Asc>*"Y* THEN IF ASC)*N”" 

GOTO 39 

IF As="Y* GOTO 21 

Eno 

REM #*# DIRECTORY + FILES LESEN ###+ 

PRINT "ICLR,SSPACESIINSERT DISK & 

PRESS <RETURN>" 
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Zeilen 90 bis 93: 

Daten für die Laderoutine 
Zeilen 95 bis 110: 

Daten für die Druckroutine Sie wird mit SYS 881 aufgerufen. 
Die Invertierungsroutine befindet Die Druckroutine wurde im Basic- 
Zeilen 86 bis 88: sich im Kassettenpuffer von Speicher von 10496 bis 10815 un- 
dez.828 bis dez.880 und wird mit tergebracht. (Guido Coenen) 


3698 


3376 


49388 


33932 


4035 


3186 


5945 


s283 
3185 
2877 
3048 


2369 
3247 


3193 
2732 
3509 
sı7ı 
2130 
12938 
2841 


1359 
4775 


4247 


2761 


1119 
128 


2623 


SYS 828 aufgerufen. Die Laderou- 
tine liegt ebenfalls. im Kassetten- 
puffer, und zwar von 881 bis 952. 


PRINT "[3SPACESI 3617 
VEREREBELRLEIEFTLEEFTLRETTEFRRFURTE" 

GET Ast IF AS<>CHRE (13) GOTO 45 1976 
PRINT TAB{6)"LDOLNJCM TO RETURN TO 3449 
in IN MENU>*® 

OPEN 1,9,15,"10"1 INPUTHI,ASI IF As<> 3544 
"88" THEN CLOSE I:RETURN 

Ism"":1OPEN 2,8,2,"H":PRINTHI,"UIs2 © 3369 
18 B*:PRINT PRINT 

PRINTHL,"B-P: "27 144:PRINT "L7SPACES, 2326 


RV3J*} 

FOR X=144 TO I61:1GET #2,BS:PRINT Bsr: 2247 
NEXT 

FOR %=1 TO SIGET #2,B$:1$=18+B8:PRINT 4783 
BS: NEXT tPRINT :PRINT tT%r19:3%=1 
PRINTWI,"Ul: "210; TAI SZ:PRINTHL,"B-Pi”" 4768 
250:GET N2,T8,5$ 

TS-TECHRE (B):1SE=-SE+CHRSE (8): T%=ASC 4360 
(T8):15%=ASC (53) 

N$=""ıFOR PO=2 TO 226 STEP 32: TYrs="" 3917 
:PRINTH1,"B-Pi"2IPO 

GET #2,TYP8: IF TYP&""* GOTO 72 1786 
PRINTHI,"B-Pı "27PO+BB!GET M2,LB#,HB$ 29823 
LBS=-LBS+CHRE (BI) :HBS=HBSHCHRE (B):L® 4318 
ASC (LBE)+ASC (CHBS)R2256 

IF L<108 THEN PRINT " "z:IF L<10 THEN 2881 
PRINT * "7 


PRINT L*L2SPACESI" CHR$ (3497 :B0=9: 4521 
NE=""tPRINTHI,"B-Pi"27P0+3:C2=*"* 
FOR 2Z=1 TO 16:GET H2,C#: IF CH=CHRS 5508 


(160) AND NOT BO THEN BO=-I1:1C2=CHR& 

(34) 

PRINT CS7:1IF CSC>CHRS <34) THEN IF Aalı8 
C$CICHRE (168) THEN NE=Ns+CcH 

NEXT 138 
IF LEN (N$)=8 THEN PO=226: T%=9:PRINT 3673 
CHRS (34):60T0 72 


IF NOT BO THEN PRINT CHR®$ (34), ı321 
IF 80 THEN PRINT CHRS (329; 1325 
IF D THEN PRINT :GOTO 72 1879 
PRINT "L3SPACESICY/NI"siAS="* 1510 
GET As: IF ASC>"N" THEN IF Asc>y"Y* 3841 
THEN IF ASc>"M* GOTO 83 

IF At="M" THEN PO=-225:T%=8 2444 


IF AS="N" THEN PRINT "ERVSINO*:ıGOTO 2356 
2 

IF Aß=-"Y" THEN N=-11D0#- 1 1NNS=NSITYP= 55793 
ASC (TYPS):PRINT :P0=2261T%=«9 

NEXT 139 
IF T%<C>18 GOTO 75 1048 
toTo 52 443 
PRINTWI,"M-R" CHRS (258) CHR#$ (2):1GET 3481 
#1,ASiNS=eNS+CHRSE (8) 

PRINTWI,*M-R* CHR$ (252) CHRS (2>:GET 5697 
W1,CHICH-:CE5+CHRS (B):iX=ASC ASI+ASC 

(C3) 2256 

PRINT TAB(?>*LDOLN,RVSI"KX*LLEFTI 23093 
BLOCKS FREE * 

IF DO THEN POKE 198,8:WAIT 198,1:POKE 2185 


198,8 
IF NOT N GOTO 84 618 
IF TYP=138 OR TYP=194 GOTO 82 2056 


PRINT "ERVS]I SORRY, NO PROGRAM-FILE I 5963 
":POKE 199,0:WAIT 198,1:POKE 1998,08: 
60T0 84 


82 INPUT "[2D0OLM,SSPACESISKIP OVER HOW ser4 208 ,246,169,243,191,248,3,169,223,141 
MANY BYTES t3RIGHTIZL3LEFTI*FBY:IF 97 DATA 241,3,169,56,141,242,3,169,253, 
BY<8 OR BY>255 GOTO 82 141,243,3,169,0,133,39,133,72,133,18 

83 FOKE 899,BY:PRINT TAB<S)I "LOADING"? 1 sc14 98 DATA 162,4 ,32,2081,255,169,91,123,253, 
CLOSE 2:0PEN 2,8,2,NN85+*,P,R":POKE 169,32,169,1293,32,218,255,136,208,250 
144 ,8:5YS 881 939 DATA 173,248,3,133,231,173,241,3,133, 7494 

84 SYS 65494:1CL0OSE ZiCLOSE 1:G0T0 21 2063 252,220,252,169,64,24,191,251,133,251 

85 REM #» DATA'S FOR INVERT-ROUTINE #* 1988 DATA 144,2,230,252,169,8,133,71,165, 6979 

86 DATA 169,224,141,78,3,141,83,3,165,1, 7606 252,133,78,165,251,133,69,24,101,71 
72,169,52,120,133,1,173,0,224,73,255 181 OATA 133,69,194,2,230,70,32,45,42, 

169,128,133,398,165,72,133,39,169,08, 


7367 


zazıa 


7696 


7080 133 
102 DATA 254,165,2,164,39,57,209,3,248, 


18,164,259,185,224,3,29,101,38,133,38 
89 REM »#s DATA'S FOR LOAD-ROUTINE #== 183 DATA 230,39,165,39,41,16,248,31,169, 
98 DATA 162,2,32,198,255,169,9,133,291, 245 08,133,39,169,9,56,229,71,133,2,165, 
169,224,133,252,160,2,248,6,32,228, ese 
255 184 DATA 133,78,165,251,56,229,2,133,69, 
91 DATA 136,289 ,250,32 ,228 ,255,145,251, 7ı23 176,2,198,70,32,45,42,230,18,230,234 
208,208,2,230,252,165,144,73,64,248, 185 DATA 169,7,69,254,209,198,165,28,32, 
i2 210,253,32,210,255,2308,71,169,8,69,71 
92 DATA 165,252 ,73,255,208,234,152,73, i8a6E DATA 248,3,76,196,41,165,252,77,243, 
64 ,208,229,96,169,8,145,291,200,208, 3,248,3,76,89,41,165,251,77,292,3,208 
2,2308 187 DATA 246,165,39,133,72,169,13,32,210, 
93 DATA 252,165,252,73,255,2089,241,152, 5318 255,165,18,240,32,169,8,132,18,173 
73,64 ,208,236 ,96 189 DATA 248,3,56,233,8,141,2490,3,176,3, 
94 REM *s DATA'S FOR PRINT-ROUTINE #3 206 ,241,3,173,242,3,56,233,8,141,242 
93 DATA 168,0,169,1,153,208,3,133,209,3, 189 DATA 3,176,3,206,243,3,1998,253,240,3, 
208,208,108,56,192,16,208,242,162,08 76,69,41,32,204 ,255,169,4,32,193,255 
96 DATA 169,1,157,224,3,18,232,56 ,224,7?, 1108 DATA 986,165,1,72,168,8,169,52,128, 
133,1,177,69,133,2,104,133,1,98,98 


87 DATA 141,0,224,2398,77,3,238,82,3,208, 
240,238,78,3,238,93,3,208,232,1094,133 
83 DATA 1,88,173,8,4,73,1,191,8,4,96 


3298 
7738 


7785 
7109 
7313 
7067 
7139 
rıs2 282 


7033 915 
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C 64 mit 


besonderer Note 


Die eingebauten Zeichen des C64 
sind gut lesbar und erfüllen ihren 
Zweck. Oft sind aber ausdrucks- 
vollere Schriftzüge gewünscht. 
RUN-Autor Martin Bittner hat ei- 
nen Zeichensatz für den besonde- 
ren Geschmack entworfen. Er er- 
setzt die eckigen Lettern der Com- 
modore-Druckschrift durch die 
sanft geschwungenen Bögen der 
Schreibschrift. 


Schreibschrift mit 
Simon's Basic 


Das Programm ist in Simon's Basic 
geschrieben. Es verlegt mit dem 
MEM-Befehl den Zeichensatz in 
den RAM-Bereich ab $E000 und 
nimmt dort an ihm die nötigen Än- 
derungen vor. Nun stehen die 
kleinen Schreibbuchstaben zur 
Verfügung (siehe Bild). Man erhält 
sie durch Drücken der entspre- 
chenden Buchstabentaste zusam- 
men mit der Shift-Taste. Auch an 
die deutschen Sonderzeichen 
wurde gedacht: 
‚=d/:=ö/@=ü/+=ß 

Die Grafikzeichen, die sonst mit 


MEM 


Wer’s stilecht mag, 
braucht seinen C64 
nicht gleich mit Brokat 


einzuschlagen. Er kann 


ihm auch durch 


lateinische Schrift 


eine besondere 


Note verleihen. 


oatrAhohe+t-demo 


& 


DESIGN 2,$E008 +65#8 


DESIGN 2,$E008+66x8 


DESIGN 2,$3E0808+67x8 
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A 


d, 


der Shift-Taste zu erreichen sind, 
sind nicht mehr verfügbar. Das 
Programm kann mit dem Befehl 
MERGE "SCHREIBSCHRIFT",8 zu 
einem anderen Programm dazu- 
geladen und als Unterprogramm 
eingebaut werden. Die handge- 
malten Zeichen können auch 
ohne Simon’s Basic verwendet 
werden. Dazu müssen die Daten 
der neuen Buchstaben in Data-Zei- 
len untergebracht werden. 


Zeichenmatrix mit 
DESIGN 


Am einfachsten lassen sich die 
Data-Zeilen mit dem Zeichenedi- 
tor ZED erzeugen (Seite 58 in die- 
sem Heft). Dabei kann man die 
Zeichenmatrix für jeden Buchsta- 
ben direkt den Programmzeilen 
nach den DESIGN-Befehlen ent- 
nehmen. Nach dem Simon’s Basic- 
Befehl "@" wird das Punktemuster 
für eine Zeichenzeile angegeben. 
Dabei entspricht “B" einem ge- 
setzten, *." einem freien Punkt. 

(Martin Bittner) EEEEEEEEEEEEEEEEEEEEEN 


18250 R....2..0. 
19268 ®....r 202. 
19278 O..er0n0. 
10288 ®..BBBB.. 
19298 @.B...... 
18388 EB......B 
18318 @.B....B. 
18328 @..BBBB.. 
18338 DESIGN 2,$E9899+68x#8 
198349 ®.....B.. 
18359 8.....B.. 
18369 @.....B.. 
18378 @.BBBBB.. 
18388 @B....B.. 
18398 @B....B.. 
18488 @B....B.B 
18418 @.BBBB.B. 
18428 DESIGN 2,$E998+69x8 
184398 O..uun00. 
19449 O..unen.. 


' in 
Hin UM Ik 
Kin 


" RUN stürmt die Commodore- Welten. 
Und besonders die des C64. 

RUN bringt alles, was Commodore- 
Anwender wissen wollen. Ob 
„Einsteiger" oder „Fortgeschritte- 
ner"; ob „Computer als Hobby“ oder 
„Computer im Beruf” — RUN hat die 
richtigen Themen. 

Wenn Sie das nächste Mal beim Zeit- 
schriften-Händler sind, oder bei 
Ihrem Computer-Händler: Bringen 
Sie (sich) das neue RUN mit — 

Sie bekommen es dort jeden Monat. 
Aktuell. 


KURS: BLOCKGRAFIK « VC-20 SICHTET DA 
KARATESPIEL: EXPLODING FIST « EPROH. . 
BANK IM RECHNER + NEUES VON DER 
FUNKAUSSTELLUNG UND, UND, UND... 


Falls vergriffen — schreiben Sie an 
den Verlag. Wir senden Ihnen ein 
kostenloses Probe-Exemplar. 


PUBLIKATIONEN 


Eine Erste Adresse für die Computerwelt. 


r Fe au 15 je wg > et! Friedrichstraße 3}, D-8000 München 40 


en 


19459 Br .enno.» 1084 | 118398 @8..B..B.B 1814 


18468 ®..BBB... 674 | 11048 ®..B..BB. 1994 
18478 @.B...B.. 314 | 11858 DESIGN 2,$E909+76x8 1892 
10488 @BBBBB..B 5593 110868 ®..BBBBB. 633 
18498 ®.B....B. 919 1198798 ®..B...B. 999 
108598 ®..BBBB.. 673 11088 ®..B..BB. 1904 
18512 DESIGN 2,$E090+709x8 1554 11898 @..B.BB.. 8693 
198528 @....BBB. 974 11188 ®..BBB... 874 
18538 @...B..B. 994 11118 @BBB..... 854 
18548 ®...B.B.. 839 11128 @...B...B 914 
108559 ®...BB... 769 11139 @...BBBB. 7394 
18560 ®..BB.... 739 11148 DESIGN 2,$E900+77x8 1818 
195798 @BB.BBBBB 669 11150 Bienen 1984 
18588 ®..BB.... 739 TIICBE, 2. 19084 
18598 @.B.B.... 719 11170 82,225, ;, 1084 
108698 DESIGN 2,$E009+71x8 1562 | 11188 @.BB.BB.. 6934 
123 1 A 1984 11198 €B..B..B. 944 
18628 ®.BBBB... 439 11208 ®B..B..B. 344 
18638 @.B...B.. 914 11218 @B..B..B. 944 
108649 ®.BBBBB.. 594 11228 8B..B..BB 954 
18658 @B....B.. 11293 11238 DESIGN 2,$E099+78x8 1618 
18669 ®..BBBBBB 7893 11240 8; 23.08 1084 
18678 @.B...B.. 314 | 11250 R........ 1084 
18688 ®.BBBBB.. SOAZE| 11260 :Bi.2.0%% 1084 
18698 DESIGN 2,$E099+72x8 1578 | 11278 €@.BB.BB.. 634 
19788 ®..BBBB.. 673 | 112808 @B.BB.B.. 344 
18718 @..B..B.. 994 11298 @B.B..B.. 1934 
18728 ®..B.B... 854 11388 @..B..B.B 19014 
18738 @..BB.... 7393 11318 ®..B..BB. 1994 
18748 @.BBBBB.. 594 11328 DESIGN 2,$3E098+79x8 1626 
19758 CB.B..B.. 19834 SEN Besen. 1884 
19768 ®..B..B.B 1914 TESEEBT. 1984 
19778 ®..B..BB. 18984 | 11359 R........ 1984 
10788 DESIGN 2,$E008+73+8 1578 | 119360 @..BBBB.. 673 
18799 RB .222.... 1984 11378 ®.BB..BB. 823 
10808 ®........ 1984 11388 ®BB....BB 973 
18818 ®...B.... 894 11398 ®.BB..BB. 829 
18828 B...222.. 19084 11488 ®..BBBB.. 673 
18839 ®..BB.... 733 11418 DESIGN 2,$E098+39x+8 1558 
18848 @BB.B.... 759 11428 R....:...» 1084 
18858 @...B...B 914 11438 ®..B..... 989 
18868 @....BBB. 974 11448 @.BBBB... 439 
188798 DESIGN 2,$E909+7448 1588 11458 @.BB..B.. 819 
18888 ®.....B.. 18863 | 11468 @B.B..B.. 1034 
10898, 8. 45.0.0 1084 | 11478 EB.B..B.B 1854 
18988 ®....BB.. 354 11489 ©..B..BB. 19094 
18918 @..BB.B.. 894 11498 ®..B..... 9893 
18928 ®.B...B.. sı4 11508 DESIGN 2,3E008+81#3 1566 
19938 @B.BBBBBB 749 Lat 1984 
18948 @.B...B.. 914 11528 ®..BBBB.. 6793 
10959 ®.BBBBB.. 594 11538 @.B...B.. 914 
108968 DESIGN 2,*3E0088+75x+8 1594 11548 @.B...8.. 914 
18978 @..BBBB.. 679 11558 @.BBBBB.. 594 
18988 ®..B..B.. 994 11568 ®B....BBB 1159 
18998 @..B.B... 854 11578 @...BBB.. 774 
11899 @..BBBB.. 6793 115898 @.....B.. 1889 
11218 @.BB..B.. 819 11598 DESIGN 2 ,$E008+32+8 1574 
11828 @B.BBBB.. 719 A = | N RR 1884 
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@...BB... 
@.BBB.B.. 
eBB.B.BBB 
Be...Bır.. 
@e...B.... 
DESIGN 2,$E098+3348 


@..BBBB.. 
@.B...BB. 
e@B.....B. 
@.....BBB 
©...BBB.. 
DESIGN 2,$E999+84x#8 
B.xss.B... 
E...:Ber. 
@....B... 
@..BBBBB. 
@...BB... 
eBBB.B... 
8@....B..B 
@.....BB. 
DESIGN 2,$E099+85#8 


@..B..B.. 
@.BB..B.. 
eB.B..B.. 
e..B..B.B 
©...BB.B. 
DESIGN 2,$E088+865«*8 


@..B..B.. 
@.BB..BB. 
eB.8..B.B 
@..B..B.. 
8...BB... 
DESIGN 2 ,$£E989+87*3 
Oorrounon 
Oooounuus 


eB..BB..B 
eB..BB..B 
eB..BB..B 
eB..BB..B 
@.BB..BB. 
DESIGN 2,$E088+88x8 
Eoonnunse 
Bouununon 


Ba ONBEEN?. TER OD. LS u 


@...BB... 
@..B..B.. 
eBB....BB 
DESIGN 2,$3E998+89x8 
E.ooorn0. 
e.B...B.. 
@.B...B.. 
eB.BBBB.. 
@B....B.. 
@..BBBBBB 
@.B...B.. 
@.BBBBB.. 
DESIGN 2,$E98098+938#8 
Booooesae 


Biaoesees 


@.BBBBBB. 

eB....BB. 

@B..BB... 

@.BB....B 

@.BBBBBB. 

DESIGN 2,$£E009+91x8 
e@..BBBBB. 

@..B....B 

@..B....B 

@..BBBBB. 

8.BB....B 

eB.B....B 

@..BBBBB. 

8e..Bı.s... 

DESIGN 2,$E089+27x+8 
Booenenen 

@..B..B.. 

PER 

@..BBBB.. 

8.BB..BB. 

eBB....BB 

@.BB..BB. 

€@..BBBB.. 

DESIGN 2,$E£088+29x8 
Booonuunn 

@..B..B.. 

Boooooeee 

€@.BBBBB.. 

EB....B.. 

eB....B.. 

eB....B.B 

@.BBBB.B. 

DESIGN 2,$E9888+122%8 
Ooonunenn 

@..B..B.. 

| EEE 

e..B..B.. 

e.BB..B.. 

eB.B..B.. 
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Plotten ohne Plotter 


Ein Drucker wird hauptsächlich 
zum Ausdrucken von Listings oder 
zum Schreiben von Texten ver- 
wandt. Das ist aber nicht alles, 
was man mit ihm machen kann. 
Mit der geeigneten Software kann 
man ihn in einen Plotter verwan- 
deln. Das Druckprinzip kann je- 
doch nicht geändert werden. Die 
nicht unterbrochene Linie des 
Plotters kann mit einem Nadel- 
drucker nicht erzeugt werden. 
Wen jedoch mehr die Aussage ei- 
ner Darstellung interessiert als 
deren „Reinzeichnung“, der ist mit 
dem „Plotter-Emulator" bestens 
bedient (siehe Probeausdrucke), 


Das Programm wird mit LOAD 
„PLOTTER-EMULATOR",8,1 gela- 
den und mit SYS22528 gestartet. 
Nach der Einschaltmeldung ist 
NEW einzugeben, um die Be- 
triebssystemzeiger richtig zu set- 
zen. Es stehen noch 18 429 Bytes 
für Basic-Programme zur Verfü- 
gung. 

Das Programm wird wie ein Peri- 
pheriegerät am IEC-Bus ange- 
sprochen. Die Geräteadresse für 
das virtuelle Gerät ist 12. Der Ge- 
rätekanal wird mit OPEN 12,12 ge- 
öffnet. Die Plotterkommandos 
werden dann mit PRINT#12 dem 
Programm übergeben. Dabei 
stellt das erste Zeichen den Befehl 
dar. Der Befehlssatz des Pro- 
gramms entspricht im wesentli- 
chen den Befehlen der Watanabe- 
Plotter. Lediglich die Auflösung ist 
gröber. Der Befehlssatz ist um 
einige Kommandos erweitert, die 
in dieser Form auf einem Plotter 
nur sehr schwer realisierbar wä- 
ren. 


Die neuen Befehle sind mit (*) 
markiert. Der Befehl „X" (Koordi- 
natenachsen zeichnen) ist im Pro- 
gramm nicht implementiert und 
muß selbst nachgebildet werden. 
Wird der Befehl trotzdem benutzt, 
so wird er überlesen. 

Die Grafik wird im Speicher er- 
stellt und dann per Befehl auf dem 
Drucker ausgedruckt. Dabei hat 
die Grafikseite eine Auflösung 
von 567 mal 480 Punkten. 
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Plotter und Drucker 
sind zwei grundver- 
schiedene Maschinen. 
Die eine zeichnet, die 
andere schreibt. Wer 


es ändern will, kann 


das nur softwareseitig 


tun. Das Programm 
„Plotter-Emulator“ 
bringt den Druckern 
MPS 801 und GP IOO VC 
das Plotten bei. 


Beschreibung 


der Befehle 
Bee trier 


Folgende Befehle stehen zur Ver- 
fügung: 

* initialisiert die Grafik. Die Gra- 
fik wird im Speicher gelöscht. Alle 
Parameter werden auf ihren An- 
fangswert gesetzt. Die Eingabe 
dieses Befehls ist bei Programm- 
start unbedingt erforderlich. 

c 


(*) löscht die Grafikseite im Spei- 
cher. Der Stift bleibt jedoch auf 
der aktuellen Position. 

Aufruf: PRINT#12,°C" 

H 

setzt den Stift auf die Position 0/0, 
ohne eine Linie zu ziehen. 

Aufruf: PRINT#12,"H" 

M 

setzt den Stift auf die angegebene 
Position, ohne eine Linie zu ziehen. 
Aufruf: PRINT # 12,"M*; x1;",";yl 


R 

bewegt den Stift relativ zur aktuel- 
len Position, ohne eine Linie zu 
zeichnen. 

Aufruf: PRINT #12,"R";dx;",";dy 


(*) bewegt den Stift an die Position 
x,y und setzt dort einen Punkt. 
Aufruf: PRINT=# 12,*.";x;*,";y 

D 

zieht eine Linie von der aktuellen 
Stiftposition zur angegebenen Po- 
sition. 

Aufruf: PRINT #12, "D";x1;",";yl 
I 

zieht eine Linie relativ zu der aktu- 
ellen Position. 

Aufruf: PRINT #12,"1";dx;",";dy 

L 


stellt den Typ der gezogenen Li- 
nien ein. Der Typ t muß sich zwi- 
schen O und 3 bewegen: 

0: die Linien werden durchgezo- 
gen (Voreinstellung) 

l: die Linien werden gestrichelt 
mit der durch den Befehl B vorge- 
gebenen Länge gezeichnet 

2: alle Linien werden punktiert 
gezeichnet, wobei der Abstand 
fest vorgegeben ist 

3: die Linien werden doppelt 
punktiert gezeichnet 

Aufruf: PRINT #12,"L";t j 
Die letzten beiden Linientypen 
sind im Original-Befehlssatz nicht 
implementiert, 


stellt die Länge der Teilabschnitte 
für die gestrichelten Linien ein. 
Das Argument b muß größer oder 
gleich 1 sein. (Voreinstellung: 1) 
Aufruf: PRINT#12,"B";b 

/ 

(*) schaltet den Reset-Modus an 
beziehungsweise aus, Ist der Mo- 
dus abgeschaltet, so wird der Zäh- 
ler, der bestimmt, wann eine un- 
terbrochene Linie gezeichnet 
wird, zu Beginn jedes Befehls zu- 
rückgesetzt. Der Parameter p be- 
stimmt, ob der Modus an- (]) be- 
ziehungsweise ausgeschaltet (0) 
wird. (Voreinstellung: 0) 

Aufruf: PRINT#12,*/";p 

F 

(*) zeichnet ein Rechteck mit den 
Eckkoordinaten xl, yl und x2, y2 
Aufruf: PRINT#12,"F"; x1;","; yl; 
“uxa;",";y2 

pP 

schreibt einen Text in die Grafik. 
Dazu stehen 64 ASCII-Zeichen zur 


‚UND UNTERSCHIEDLICHE, 


‚BEFEHL... 


37 HIN N3OHNL 


| LINIE TYP 8 (SET) 
| LINIE TYP 1 (RES) 
LINIE TYP 2 1EOR) 


| ZEICHENVORRAT 


: @ABCDEFGHIJKLMNOPORSTUUM 


HIISLI4I8H2 


FLOTTER-DENU 


Br ERIRTEUE FOEFFERLEIN 
IL =; 


195 


UNTERSCHIEDLICHE LINIENTYPEN 


: GESTRICHELT (1) 
: (2) 


: PUNKTIERT 


KZL-It4 


se’ +. Ze FFASHE TI: 2 <=>? 


: MARKEN 


Verfügung. Die Größe der 
Zeichen und die Richtung wird mit 
dem Befehl S beziehungsweise Q 
eingestellt. 

Die ASCI-Zeichen 96 bis 128 sind 
nicht implementiert. Die Klein- 
buchstaben werden deshalb groß 
wiedergegeben. 

Aufruf: PRINT #12,"P"; TEXT$ 

Ss 

stellt die Größe der Buchstaben 
ein. Für 0 sind die Buchstaben 6 


mal 9 Punkte groß. Für andere 
Größen sind die Zeichen jeweils 
um den Faktor s+ | (angegebene 
Größe) größer. 

Das Argument s muß größer als 0 
sein. (Voreinstellung: 0) 

Aufruf: PRINT# 12,*S";s 


Q 

stellt die Richtüng der Schrift ein. 
Das Argument q muß zwischen 0 
und 3 liegen: 

0: die Schrift wird von links nach 
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: 3) 
: DURCHSEZUGEN iR 
(2) 


rechts geschrieben (Voreinstel- 
lung) 

l: die Schrift wird von unten nach 
oben geschrieben 

2: die Schrift wird von rechts nach 
links auf dem Kopf geschrieben 

3; die Schrift wird von oben nach 
unten geschrieben 

Aufruf: PRINT# 12,"Q";q 

N 

zeichnet an der aktuellen Position 
eine der sechs Marken (vordefi- $ 
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nierte Grafiksymbole). Nach Aus- 
führung des Befehls steht der Stift 
wieder an derselben Position wie 
vor dem Befehl. 

Das Argument n muß sich zwi- 
schen l und 6 bewegen. (Marke 
#2 ist nicht implementiert!) 
Aufruf: PRINT# 12,"N":n 

oO 

(*) gibt die Grafikseite auf dem 
Drucker aus. Das Programm wur- 
de für die Drucker MPS 801 oder 
GP 100 VC geschrieben und ist 
auf die Geräteadresse 4 einge- 
stellt. 

A 

(*) stellt den Typ der gesetzten 
Punkte ein. Der Typ t muß zwi- 
schen O und 2 liegen: 

0: alle Punkte werden gesetzt 
(Voreinstellung) 

1: alle Punkte werden gelöscht 
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2: alle Punkte werden invertiert 
Aufruf: PRINT# 12, "A" 

E 

(*) schaltet den Echo-Modus ein 
oder aus, In diesem Modus wird 
bei jedem Befehl eine Meldung 
zur Protokollierung ausgegeben. 
Das Argument p entscheidet, ob 
der Modus aus- oder angeschaltet 
wird: 

0; Modus ausschalten (Voreinstel- 
lung) 

l: Modus anschalten 

Aufruf: PRINT#12,*E";p 

- 

(*) schaltet den Minimum-Maxi- 
mum-Modus an beziehungsweise 
aus. Ist der Modus angeschaltet, 
so wird ein Punkt nur dann ge- 
zeichnet, wenn er höher als der 
höchste bisher gezeichnete Punkt 
oder niedriger als der niedrigste 
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bisher gezeichnete Punkt liegt. 
Diese Funktion wird benötigt, 
wenn hinter einem Objekt liegen- 
de Linien nicht gezeichnet werden 
sollen. Der Parameter p bestimmt, 
ob der Modus an- (1) oder ausge- 
schaltet (0, Voreinstellung) wer- 
den soll. Bei jedem Aufruf wird 
die Minimum-Maximum-Tabelle 
gelöscht. 

Aufruf: PRINT#12,"#";p 

Die Argumente der Befehle wer- 
den als Zahlen oder als Variablen 
übergeben. Die Strichpunkte zur 
Abtrennung der Ärgumente kön- 
nen weggelassen werden. Bei 
Zahlen sind auch die Anführungs- 
zeichen überflüssig. Beispiele: 
PRINT#12,"R";A;",*;B 
PRINT=#12,"R"A","B 

PRINT # 12,"R5,6" 

(M. Köfferlein/W, Wintersberger) 


SA28 65 BI 85 Bi 86 B4 26 
Sa28 88 DB EC AS BO 18 65 
SA38 85 B® AS Bi 65 FC 69 
Sa38 85 Bi 28 52 58 A4 8D 
SsAad8 6C Sn AC 48 83 FB IC 
S5A48 Bl FB 8D CO 82 DB 14 
SAS8 88 51 BO 91 BO AC 7i 
SA58 AB 88 43 FF 31 BB Si 
SA68 4C 71 58 ADB 88 11 BB 
SA68 BB AC 71 58 81 82 94 
Sn7?8 18 28 48 AS 88 8D 43 
SA78 68 AD 51 83 FO 43 C93 
SsA88 FB 2A CS 82 FO 17 C3 
San88 BB 37 AD 49 83 C9 85 
SAS8 2D F8 36 CS 87 FO 32 
SAS8S 9893 Bd 29 38 21 AD 49 
SsAARd CS 85 88 iA FO 23 C3 
SAan8 88 iA S8 12 AD 49 83 
SABB AA 83 SB BA ED AA 83 
SABS 4A 83 BO 88 S8 OB EE 
SsaCc8 83 A4C SD 59 AS FF 8D 
S5Aac8 83 EE 49 83 68 2C 55 
SAD® 18 38 85 BO 8A 48 A5 
saDs 28 31 B3 28 DD BD AE 
S5AEB Bi EB 28 DO 82 69 288 
SaEs IE AB 68 Af 68 2C 55 
5AFO 18 18 8D 56 83 8A 48 
sar8 56 83 28 IE AB 68 Af 
5B88 2C 64 688 AS 2C 2C AS 
5B08 2C AS 28 2C AS 3B 2C 
5B18 83 18 EF 4C OC Ei 95 
5Bi8 85 Bö A5 AS 49 88 9A 
sbB28 A8 85 Bi 85 Bö 98 A5 
5sB28 85 B4 AS AfA 49 88 BA 
5B38 AfA 85 BS 85 B4 4C 61 
sB38 nAS5 A? 38 ES FB 85 BB 
5848 AS ES FC 85 B1 49 88 
S5B48 AS Bi 85 BO 88 AS A9 
5858 ES FD 85 B4 AS AA ES 
5B58 85 BS 49 88 an AS BS 
S5sB68 B4 FO 87 BO 83 AS FF 
S5B68 A9 81 8D 46 83 8D 42 
5B78 6A 49 88 8D 47 83 8D 
5sB78 83 A9 89 28 FO 87 BO 
5B88 AS FF 2C AS 81 8D 44 
5B88 8D 48 83 6N 493 88 8D 
5sB398 983 8D 41 83 AS BO 8D 
5B38 93 A4 Bi 8C 4C 83 18 
SBa8 493 FF 18 69 di 8D 4B 
S5sBn8 98 49 FF 69 88 8D 4C 
5BB9 A5 B4 8D 4D 83 A4 B5 
5BB8 4E 83 18 18 49 FF 18 
55C8 81 8D 4D 83 38 49 FF 
58C8 88 8D 4E 83 AD 4B 83 
5BD8 ED 4D 83 AD A4C 83 ED 
5BD8 83 BB 27 A9 988 SD 48 
SBEöO 8D 41 83 AD 4D 983 48 
S5SBES 4E 83 48 AD 4B 83 8D 


NV .MOMNEEENPITERNIR.D SO M 


5BF® 
5BF8 
5C88 
5C988 
5c18 
5c18 
5cC28 
5c28 
5C38 
5c38 
5C48 
5c48 
5c58 
5C58 
S5C68 
5C68 
5c78 
5C78 
5C88 
5c88 
5c38 
5C38 
ScAB 
ScA8 
5CBd 
5CB8 
ScCc8 
5cCc8 
SCD® 
5cD8 
SCEd 
SCES 
SCFd 
SCF8 
5D98 
5D98 
5D18 
5D18 
5D28 
5D28 
5D38 
5D38 
5D48 
5D48 
be] al=T%) 
5058 
5D68 
SDE8 
5D78 
5D78 
5D88 
5D88 
5D38 
5D98 
SDA® 
SpDAS 
5DBd 
5D8B8 
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sDpc8 37 A939 58 85 38 A9 
5DC8 57 83 68 A2 88 2C 
5SDD® 18 83 BE 49 83 AD 
5SpDD8 ES AB 13 DS 17 SE 
SDEO 88 18 F&8 68 98 9A 
SDES 2B SE 85 Bd BS 2C 
SDFö Bi 6C BO 89 29 E4 
SDF8 1D 85 AS 84 A? 28 
SE98 28 51 59 BB 11 28 
SE08 ES 28 E4 58 BO 88 
SEIO 84 A9 28 CD 5A 18 
SEIS 2A 48 44 4D 2E 41 
SE28 4F 58 53 51 49 52 
SE28 46 4E 42 58 SF 71 
SE39 SF 53 SE 7B SE BC 
SES8 SE F&6 SE 39 SF SC 
SE48 SF 39 63 4D 63 71 
SE48 63 BF 63 E2 63 3B 
SES® 64 CB 64 AS 6D AB 
SES8 ED 5A 298 F4 5D BB 
SES@ 38 SB 28 51 59 BO 
SES8 BC SB ES DB ED BE 
SE78 41 57 28 4C 49 4E 
SE?78 54 4F 88 A9 B3 AB 
SE8S8 ED 5A 28 F4 5D BO 
SE88 A? 85 FB AS AS 85 
SE98 A9 85 FD AS AA 85 
SES8 AS FB 18 65 A7 85 
SEA® FC 65 AB 85 FC AS 
SER8S 65 AS 85 FD AS FE 
SEB®O 85 FE 68 BE 6D AF 
SEBS 29 54 4F 88 AS CB 
SECB 28 ED 5A 28 82 SE 
SEC8S 4AC 79 5A BE 78 AC 
SED®B 28 41 54 88 AS 88 
SEDS 83 AS EB AB SE 28 
SEEBO 28 E4 58 BB B2 SC 
SEES 4C CD 5A BE 73 45 
SEFO 54 59 58 45 88 68 
SEF8 8D 51 83 AS 81 8D 
SF88 A9 12 AB SF 28 ED 
SF88 E4 58 Bd ES SC 51 
5SFia CD SA BE 73 45 54 
SFIS 4AF 54 28 4D 4F 44 
SF28 2C 55 83 18 DO 48 
SF28 28 8C Ei 68 38 86 
SF38 28 8C Ei 2C AS 4E 
SF38 Ei 28 E4 58 BB 87? 
5SF48 6A 29 88 8D 55 93 
SF48 AB SF 4C ED 5A BE 
SF58 48 4F 28 4D AF 44 
SFS8 A93 62 AB SF 28 ED 
SF68 5A 58 BE 63 4C 45 
SF68 28 47 52 41 59 48 
5SF78 88 AS 7B AB SF 28 
SF78 AC AB 5D BE 69 4E 
SF88 493 41 4C 49 5A 45 
SF88 92 AB SF 28 ED 5A 
5F38 58 68 BE 78 45 4E 
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SF98 
SFAB 
SsFAs 
SFBO 
SFB8S 
SFCO 
SFC8 
SFDd 
SFD8 
SFE® 
SFES 
SFF® 
SFF® 
6988 
5988 
6918 
6918 
so28 
69828 
6838 
8938 
6948 
6948 
6958 
6958 
8968 
6068 
69878 
5878 
6989 
6888 
6898 
8998 


s8R8 
sans 


5089 
5988 
89C8 
sac8 
68D9 
89D8 
6BEB 
SOES 
68F8 
Ssors 
6188 
6188 
6118 
6118 
86128 
si28 
6138 
6138 
6148 
6148 
6158 
6158 
6168 
6168 


Listing ]: Hexdump mit Checker eingeben, Startadresse ist 5800 
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OPEN 12,12 

PRINTHI2,"=" 

Li 

PRINTHI2,"#H1*:AL=38/1888=[P1] 

FOR %=8 TO 118 STEP 18 

FOR Y=8 TO 118 STEP 18 

PRINT X,Y 

’ 

x1=359+%-C0S (ALIE2Y 

K2=X1+18 

*3=359+X-C0S (AL)z(Y+19) 
Yi=-448-5IN (X/11882[P11>14xC0S (Y/ 
118=[P11>#118-SIN <AL)Ix=Y 
Y2=448-5IN ((X+18)/118s[P11>14xC0S 
(Y/118s{PIJ>#118-SIN. <ALIRY 
Y3=449-SIN (X/118s[PI1J>t43C0S C(Y+ 
18)/118s[P1J>=118-SIN CAL)Iz<Y+18) 
PRINTHI2,"M"X1","Yı 

IF x<>118 THEN PRINTHI2,"D"X2", "v2 
PRINTHI2,"M'X1",*"Yi 

IF Y<>118 THEN PRINTHI2,"D"X3","Y3 
r 

NEXT Y,X 

PRINTHI12,"E1* 

s 

PRINTHI12,"H8" 
PRINT#H12,*"L1*:PRINTHI2,*B1" 
PRINTHI2,"Ma,60" 
PRINT#H12,"0479,68,473,548,8,548,0, 
68” 

PRINTHI12,"M8,188* 
PRINTKI2,"D479,188* 
PRINTH12,"M9,398” 
PRINT#12,"D479,308* 
PRINTHI2,"M249,180* 
PRINT#12,"D248,,548* 

ı 

PRINTWI2,"M168,9* 
PRINTHW12,"S1":PRINTWHI2,"L®" 
PRINTW12,"PPLOTTER-DEMO* 
PRINTWI12,"S0" 

PRINTH12,"M168,30" 

PRINT#H12,"PBY MATTHIAS KOEFFERLEIN* 
PRINT#12,"M20898,48" 

PRINTH12,"P<C) 1985* 

’ 

PRINT#12,"M18,708* 

PRINTWI2,"PES GIBT UNTERSCHIEDLICHE" 
PRINTWI2,"Mi®,88* 

PRINT#H12,"PS"” 
PRINTHI12,"St":PRINTHI2,*PC* 
PRINTH12,"S2"ı1PRINT#HI12, "PH" 
PRINT#12,"S3":PRINT#HI2,"PR" 
PRINT#H12,"S4":PRINTH12,"P1" 
PRINTWI12,*S5":PRINTH12,"PF" 
PRINTH12,"S6*":PRINTHI12, "PT" 
PRINTHI12,"S7":PRINTHI2,"PE* 
PRINT#12,"S8":PRINTHWIZ2,"PN” 
PRINTHI12,"M18,168*":PRINTHI12,"SO* 
PRINT#12,"P81 2I2SPACESI313SPACES]4 
[4SPACESISISSPACESISIESPACESI? 
[7SPACESIS" 

E 

PRINT#12,"M18,198*:PRINTHI2,*SB8* 
PRINT#12,"P...UND UNTERSCHIEDLICHE * 
PRINTHKI12,*03* 

PRINTH12,"P SCHRIFTRICH- * 
PRINTHI2,"02" 

PRINT#12,"P TUNGEN DURCH DEN * 
PRINTH12,"Q1” 
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788 
718 
7-28 
738 
748 
750 


788 


PRINT#12,"P ROTATE- * 
PRINTHI2,"08* 

PRINT#12,*"P BEFEHL...” 

‘ 

PRINT#12,"M2508,198* 
PRINTH12,"PUNTERSCHIEDLICHE 
LINIENTYPEN" 
PRINT#12,"M258,215":PRINTH12,"L8* 
PRINTHI2,"PGESTRICHELT 197" 
PRINTH12,"M368 ,2208* 

PRINT#12,"L1*":PRINTHI2, "BI" 
PRINTH12,"D468,228":PRINTHI12,"L®" 
PRINTHI2, "M2S0 ,225" 
PRINT#HI2,"PLI2SPACESI<(2>" 

PRINTWI12,"M368,,230" 
PRINT#HI2,"LI":PRINTHI2,"B2* 
PRINT#12,"D4608,,238*:PRINT#12,"L8* 
PRINTWI2, "M250 ,235" 
PRINTHI2,"PLI12SPACES]I(3)>* 
PRINTW12,"M368,248* 
PRINTHI2,"LI1":PRINTHWIZ2,"B3" 
PRINT#12,"D4608,2498* 
PRINTHI2,"M258 ,245" 1 PRINTHI2,"LO* 
PRINT#12,*PDURCHGEZOGENL3SPACES]* 
PRINTHI2, "M360 ,259" 

PRINTHI2,"LO" 

PRINT#12,"D468 ,250" 
PRINTHI2, "M250 ,255":PRINTHI2, "LO" 

PRINTHI2,"PPUNKTIERTL3SPACESIC1)" 
PRINTHI2,"M360,268" 

PRINTWI2,"L2” 

PRINT#12,"0468,268* 
PRINTWI2,"M258,265*":PRINT#HI12,"L8* 
PRINT#12,"PLI12SPACESI(2>” 
PRINTHI2,"M368 ,2708* 

PRINTWIE,"L3" 

PRINT#HI2,"D460 ,2798* 

1 

PRINTHI2, "M259,529* 1 PRINTHI2,"LB” 
PRINT# 12, "PHIDDEN-L INE-DEMO" 

‘ 

PRINTKI12,"M168,320* 
PRINTWI2,"D2080 ,3208,288,4988,160,488, 
168 ,328* 

FOR 1=188 TO 288 
PRINT#H12,"M"1", "3208 
PRINTWI2,"D"I","408 

NEXT 1 

PRINTHI12, "AB" 

PRINTHI2,*M148,349* 
PRINTH12,"D228,348* 

PRINTHI2,"A1” 

PRINTHI2,"M148,368* 

PRINTHW12,"D220,360* 

PRINTHI2,"A2” 

PRINT#12,"M148,388* 
PRINT#12,"D228,388*:PRINT#H12,"A®" 
PRINTWI2,"M18,330" 
PRINT#H12,"PLINIE TYP 8 <SETI" 
PRINTWI2,"M18,350" 
PRINT#12,"PLINIE TYP 1 <RES>" 
PRINTW12,"M18,370* 
PRINTH12,"PLINIE TYP 2 (EOR)>" 

t 

PRINTWI12,"L1":PRINT#H12,"B1" 
PRINT#12,"M8,4208"* 
PRINTH12,"D248,428* 

‘ 

PRINT#12,*"M18,450” 

PRINTHI2,"L8" 


FOR 1=64 TO 95 
PRINTH12,"P" CHRS (1> 
NEXT I 
PRINTHI2,"M1O,468" 
FOR 1=32 TO 63 
PRINTHIZ2,*"P* CHR$ (1) 
NEXT I 


s 
PRINTH12,"M10,438” 
PRINTHI12,*"PZE ICHENVORRAT"” 
ı 
PRINTW12,"M28,5988* 
PRINTHI2,"NI“ 
PRINTH12,"M498,5008* 
PRINTHI2,*"NE" 
PRINTHI2,"M69,500" 
PRINTWI2,"N3" 
PRINT#12,"M80,509* 
PRINTHI2,"NA” 
PRINT#12,"M188,509* 
PRINTHI2,"NS” 
PRINT#H12,"M1208,588” 


Listing 2: Das Demo-Programm erzeugt das Bild auf Seite 85 


KEREREREEFFERETLEREELREIBEREER 


* 
* PLOTTER-EMULATOR 

x FUER MPS 881 / GP 108 VC 
* VON W.WINTERSBERGER 

* UND M.KOEFFERLEIN 

= 
* 


ZUERERERRRERRRRRRRRT ERBE RR FHTR 


A=-22528 TO 25849:READ D:POKE A, 
D:NEXT 
SYS ZES28:NEU 
L) 
DATA 32,169,93,169,18,168,88,76,38, 
171,13,14,32,112,76,793 
DATA 84,94,69,982,45,69,77,95,786,65, 
84 ,79,82,13,32,109 
DATA 112,115,32,56,48,49,47,183,112, 
32,49,48,498,32,118,99 
DATA 13,13,32,90,99,41,32,49,57,56, 
53,32,109,65,84,894 
DATA 72,73,69,83,32,1907,79,69,78,70, 
69,82,76,69,73,78 
DATA 13,8,72,120,169,52,133,1,104, 
96 ,32,82,88,160,8,162 
DATA 104,132,176,134,177,169,128, 
145,176,208,208 ,231 ,230,177,232,208 
DATA 246,72,169,55,133,1,88,184,96, 
169,8,133,251,133,232,133 
DATA 253,133,254,96,72,165,1594,201, 
12,208,86,1084,133,13,72,152 
DATA 72,138,72,164,2,248,7,173,128, 
3,281,80,248,8,165,13 
DATA 41,127,201,32,248,22,165,13,41, 
127,281,14,144,21,2081,32 
DATA 144,18,153,128,3,208,192,88, 
248,9,132,2,104,178,104,188 
DATA 1904,24,96,169,13,193,128,3,208, 
169,8,133,2,153,128,3 
DATA 169,3,133,194,32,283,93,32,6, 
91,169,12,133,154,76,198 
DATA 98,76,283,241,169,8,133,28,133, 
21,189,128,3,248,92,201 


Wh SONEBSENPLTERWERED. OH 


PRINTHIZ2,"NS" 
PRINTHI12,"S1" 
PRINTH12,"M28,5208* 
PRINTHI2,"NI" 
PRINTH 12, "M48,5208* 
PRINTHI2,"NE* 
PRINTH12,"M608,529* 
PRINTHI12,"N3"* 
PRINTH12,"M80,529* 
PRINTHI2,"NA* 
PRINTHI2,"M108 ,529* 
PRINTHI2,"NS*” 
PRINTHI2,"M128,520* 
PRINTHI2,"NS" 

‘ 
PRINT#12,."M18,488":PRINTWI2,"S8* 
PRINT# 12, "PMARKEN" 
8 

PRINTH12,"0" 

CLOSE ı2 

8 


DATA 45,288,4,232,169,128,44,169,8, 
133,188,189,128,3,248,75 

DATA 281,48,144,48,281,58,176,44,6, 
28,38,21,165,21,133,176 

DATA 165,28,10,38,1786,108,38,176,24, 
181,28,133,29,8,189,128 

DATA 3,41,15,24,181,28,133,28,165, 
21,185,0,98,181,176,133 

DATA 21,232,208,199,24,36,189,16,17, 
165,208 ,73,255,105,1,133 

DATA 29,165,21,73,255,185,80,133,81, 
24 ,36,56,164 ,28,165,21 

DATA 936,189,128,3,248,245,201,44, 
240 ,218,232 ,208,,244,165 ,252,48 

DATA 234,249,18,281,1,288,228,165, 
251,281,224,176,,222,165,254,48 

DATA 218,164 ,253,201,2,144,6,208, 
218,192,55,176,206,132,13,133 

DATA 14,494,89,3,16,93,165,251,1933, 
176,163,252,6,176,42,6 

DATA 176,42,24,105,88,133,177,165, 
253,56,160,0,241,176,165,254 

DATA 288,241,176,176,13,165,253,136, 
145,1786,1865,254,200,145,176,169 
DATA 128,44,169,0,133,181,288,56, 
177,176,229,253,208,177,176,229 
DATA 254,176,13,136,165,253,145,176, 
200,165,254,145,178,189,128,44 

DATA 169,9,5,181,288,3,76,75,89,168, 
1,132,181,169,192,133 

DATA 188,136,132,176,168,7,165,13, 
56 ,229,188,72,165,14,229,181 

DATA 144,6,133,14,104,133,13,36,104, 
38,1786,78,181,102,180,136 

DATA 208 ,228,165,176,74,182,189,74, 
182,1808,74,182,188,133,181,169 

DATA 8,133,176,133,177,160,4,165, 
188,24,181,176,133,176,165,181 

DATA 1981,177,133,177,6,188,38,181, 
136 ‚288 ,236,165,176,24,181,2851 

DATA 133,176,165,177,101,252,105, 
1084,133,177,32,82,88,164,13,185 
DATA 1988,98,172,72,3,249,28,192,1, 
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137 


138 


139 


1408 


141 


142 


143 


144 


145 


146 


147 


148 


143 


158 


151 


152 


153 


154 


155 


156 


157 


168 


182 


163 


164 


167 


169 


178 


ı71 


248,13,192,2,208,28,169 

DATA 8,81,176,145,176,76,113,88,169, 
9,73,255,99,176,145,176 

DATA 76,113,88,1698,98,17,1768,145,176, 
76,113,88,1,2,4,8 

DATA 16,32,64,169,8,141,73,3,96,173, 
81,3,248,67,201,1 

DATA 248,42 ,201,2,248,23,201,4,176, 
55,173,73,3,281,5,144 

DATA 45,248 ,54 ,281,7,248,58,201,9, 
176,41,144,33,173,73,3 

DATA 201,5,144,26,248,35,201,7,176, 
26,144,18,173,73,3,285 

DATA 74,3,144,10,237,74,3,2085,74,3, 
176,8,144,11,238,73 

DATA 3,76,93,99,169,255,141,73,3, 
238,73,3,96,44,95,3 

DATA 16,48,133,176,138,72,165,176, 
32,145,179,32,221,189,174,8 

DATA 1,224 ,32,208,2,105,9,32,38,171, 
104 ,178,96,44,85,3 

DATA 16,16,141,86,3,138,72,173,96,3, 
32,38,171,194,170,76 

DATA 44,180,96,169,44,44,169,13,44, 
169,32,994,169,59,44 ,85 

DATA 3,16,239,768,12,225,165,167,133, 
176,165,168,73,128,198,165 

DATA 166,133,177,5,176,8,165,169, 
133,188,165,178,73,128,18,165 

DATA 178,133,181,5,188,76,97,91,165, 
167,56 ,229,251,133,176,165 

DATA 168,223 ,252,133,177,73,128,18, 
165,177,5,176,8,1865,169,58 

DATA 229,253,133,188,165,170,229, 
254 ,133,181,73,128,18,165,181,5 

DATA 189,248,7,176,3,169,255,44,169, 
1,141,78,3,141,66,3 

DATA 1986,73,128,141,71,3,141,67,3, 
169,0,498,248,7,1786,3 

DATA 169,255,44,169,1,141,68,3,141, 
64,3,186,73,128,141,69 

DATA 3,141,85,3,165,176,141,75,3, 
164,177,1408,76,3,16,16 

DATA 73,255,24,105,1,141,75,3,152, 
73,255,185,8,141,76,3 

DATA 165,188,141,77,3,164,181,148, 
78,3,16,16,73,255,24,105 

DATA 1,141,77,3,152,73,255,105,0, 
141,78,3,173,75,3,36 

DATA 237,77,3,173,76,3,237,78,3,176, 
39,169,8,141,64,3 

DATA 141,65,3,173,77,3,72,173,78,3, 
?-2,173,75,3,191,77 

DATA 3,173,76,3,141,78,3,104,141,76, 
3,199,141,75,3,76 

DATA 198,92,169,0,141,66,3,141,87,3, 
173,76,3,191,93,3 

DATA 141,80,3,173,75,3,141,82,3,78, 
80,3,186,141,79,3 

DATA 32,121,908,173,82,3,208,3,286, 
83,3,206,22,3,44,83 

DATA 3,48,187,173,79,3,24,189,77,3, 
141,79,3,173,88,3 

DATA 189,78,3,141,88,3,173,79,3,56, 
237,75,3,168,173,88 

DATA 3,237,78,3,144,39,141,88,3,148, 
79,3,1865,251,24,189 

DATA 68,3,133,251,165,252,109,69,3, 
133,252,165,253,24,109,70 

DATA 3,133,253,165,2594,189,71,3,133, 
854 ‚756,32 ,92,165,251,24 
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5474 


s282 


49387 


5674 


5283 


3594 


5271 


5335 


4464 
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ı72 
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174 
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!176 


177 


178 


179 


'188 


182 


183 


184 


186 


187 


1893 
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194 


195 


196 


197 


198 


199 


208 


282 


2083 


294 


205 


206 


297 


DATA 189,64,3,133,251,165,252,109, 
65,3,133,252,165,253,24,109 

DATA 66,3,133,253,165,254,189,67,3, 
133,254 ,76,32,92,96,1869 

DATA 192,141,38,3,189,88,141,39,3, 
96 ,32,244 ,92,169,13,32 

DATA 12,225,32,12,225,32,12,225,169, 
8,32,12,225,169,8,133 

DATA 176,169,184,133,177,169,81,141, 
82,3,32,10,93,32,237,246 

DATA 248,26,169,13,32,12,225,206 ,82, 
3,208 ,238,169,15,32,12 

DATA 225,169,13,32,12,225,32,12,285, 
32,12,225,32,51,243,169 

DATA 4,76,145,242,169,8,32,249 ,253, 
169,4,162,4,168,8,32 

DATA 08,254,32,74,243,162,4,76,173, 
228,32,82,88,165,1768,24 

DATA 185,224,133,198,133,13,165,177, 
185,1,133,181,133,14,165,198 

DATA 288,2,199,181,198,188,164,198, 
196,176,288,6,164,181,196,177 

DATA 248,8,168,8,177,188,281,128, 
249 ,228,230,180,208,2,230,181 

DATA 162,8,1690,0,177,176,164,176, 
196,190,288,6,164,177,196,181 

DATA 248,17,230,176,208,2,238,177, 
168,0,232,224 ‚255,248 ,4 ‚209 

DATA 176 ,248,223,224,4,176,14,32, 
113,88,32,12,225,32,82,88 

DATA 292,208 ,244 ‚248 ,28,72,32,113, 
88,169,26,32,12,225,138,32 

DATA 12,225,194 ,32,12,225,32,82,88, 
164,176,196,180,208,177,164 

DATA 177,196,181,208,171,165,13,133, 
176,165,14,133,177,78,113,88 

DATA 32,98,88,32,1593,92,32,121,98, 
141,72,3,191,81,3,141 

DATA 85,3,141,84,3,141,89,3,133,2, 
1941,88,3,169,8,133 

DATA 55,169,80,133,56,169,1,141,87, 
3,96,162,0,44,84,3 

DATA 16,3,142,73,3,173,128,3,232, 
168,19,217,23,94 ,248,4 

DATA 1936,16,248,96,152,19,168,185, 
43,94,133,176,185,44,94,133 

DATA 177,188,176,0,32,228,98,178,29, 
133,168,132,167,32,205,98 

DATA 32,981,989,176,17,32,3,91,232,32, 
228,88,176,8,133,1708 

DATA 132,169 ,32,205,98,24,96,67,42, 
72,68,77,46,65,76,69 

DATA 79,88,83,81,73,82,47,35,78,78, 
66,88,95,113,95,133 

DATA 95,83,94,123,94,188,94,212,94, 
246 ,94 ,57,95,156,95, 181 

DATA 95,57,99,77,99,113,99,158,99, 
191,99,226,99,59,188,155 

DATA 1898,283,188,169,189,1698,94,32, 
237,308,32,244,93,176,58,32 

DATA 56,91,32,91,89,176,48,32,12,91, 
232 ,288,237,14,188,82 

DATA 65,87,32,76,73,78,69,32,84,79, 
8,169,179,168,94,32 

DATA 237,908,32,244,93,176,16,165, 
167,133,251,165,168,133,252,165 

DATA 169,133,233,165,178,133,234,96, 
165 ,251,24,181,167,133,251,165 

DATA 252,181,168,133,252,165,233,24, 
181,169,133,253,165,254,181,178 
DATA 133,234,96,14,189,79,86,69,32, 


241 


242 


84,79,8,169,203,160,94 

DATA 32,237,99,32,138,94,176,207,76, 
121,98,14,112,76,79,894 

DATA 32,65,84,8,169,8,141,72,3,169, 
235,160,94,32,237,90 

DATA 32,228,88,176,178,140,72,3,76, 
205,98,19,115,869,84,32 

DATA 84,89,808,69,0,96,169,9,141,81, 
3,169,1,191,74,3 

DATA 169,18,1680,95,32,237,98,32,228, 
88,176,233,148,81,3,76 

DATA 285,98,14,115,69,94,32,868,79, 
94 ,32,77,79,68,89,8 


DATA 44,85,3,16,288,72,169,79,32,12, 
225,1984,48,6,169,78 

DATA 32,12,225,99,169,78,76,18,225, 
32 ,228,88,176,183,132,74 

DATA 186,41,128,141,85,3,169,77,168, 
95,78,237,980,14,101,67 

DATA 72,79,32,77,79,68,69,8,169,98, 
169,95 ,32,237,98,76 

DATA 98,88,14,99,76,69,65,982,32,71, 
82,65,99,72,73,67 

DATA 8,169,123,168,95,32,237,98,76, 
168,93,14,185,78,73,94 

DATA 73,65,76,73,98,69,8,169,146, 
160,95,32,237,98,76,121 

DATA 88,96,19,112,69,78,32,72,79,77, 
89,8,169,166,168,95 

DATA 32,237,98,76,178,92,14,112,82, 
73,79,94,32,71,82,65 

DATA 88,72,73,67,8,169,143,160,96, 
32,237,98,189,128,3,248 

DATA 288,281,13,249,284 ,32,12,225, 
41,63,141,82,3,169,155,133 

DATA 176,169,96,133,177,173,82,3, 
248,25,160,80,177,176,2408,8 

DATA 230,176,208,248,238,177,208, 
244 ,20868,92,3,238,176 ,208 ‚230,230 
DATA 177,288 ,226,138,72,168,8,177, 


176,248,126,74,74,74,74,141 

DATA 86,3,177,176,91,7,96 ,237,88,3, 
56 ,237,88,3,41,7 

DATA 178,132,168,132,178,172,87,3, 
132,167,41,4,248,11,152,73 

DATA 255,168,208,132,167,169,255, 
133,168,138,41,3,208,4,133,167 
DATA 133,168,1398,56,233,2,91,7.170, 
172,87,3,132,169,91,4 

DATA 248,11,152,73,255,168,208,132, 
169,1869,255,133,170,138,41,3 

DATA 208,4,133,169,133,178,168,8, 
177,176,91,8,208,11,32,127 


DATA 96,286,86,3,288,248,76,113,96, 
32,1392,94,2086,986,3,2988 

DATA 248,2308,176,288,128,238,177, 
208 ,250,104,178,232,76,188,95,165 
DATA 178,72,169,177,72,32,22,91,184, 
133,177,184,133,176,96,14 

DATA 112,82,73,78,84,32,84,69,88,84, 
8,38,44,22,36,34 

DATA 48,23,38,21,84,19,34,17,42,104, 
8,124,96,17,34,19 


DATA 188,72,78,57,58,08,18,116,22,50, 
17,32,23,38,42,17 

DATA 16,23,38,90,8,26,21,84,19,34, 
17,88,23,38,98,8 

DATA 58,19,84,21,54,18,112,98,0,66, 
78,116,66,48,47,38 

DATA 57,58,0,66,78,116,72,34,57,26, 
08,74,28,23,38,21 
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DATA 84,19,34,17,48,38,57,26,8, 118, 
64 ,66,68,112,42,0 

DATA 26,34 ,22,118,22,34,57,72,0,42, 
34 ‚22,108,21,22,23 

DATA 185,0,116,72,49,61,67,41,88,0, 
116,66,41,88,8, 124 

DATA 112,35,33,116,41,88,8,124,112, 
67,52,112,42,0,26,21 

DATA 84,19,34,17,80,23,38,98,8,116, 
48,58,17,32,23,54 

DATA 106,8,28,21,84,19,18,33,64,23, 
38,76 ,27,35,42,120 

DATA 8,58,19,38,21,54,18,51,78,112, 
186,0,74,28,23,38 

DATA 21,36,19,34,19,20,21,38,23,105, 
0,66,38,118,73,56 

DATA 8,100,19,34,17,96,42,0,84,35, 
33,80,42,0,116,33 

DATA 35,112,42,0,20,67,36,78,32,85, 
16,42,0,20,35,658 

DATA 64,33,18,42,0,66,28,69,36,66, 
42,120,0,59,38,116 

DATA 34,58,128,8,76.,66,42,72,0,86, 
34,116,38,99,120,0 

DATA 42,35,78,33,118,73,56,8,76,33, 
76,39,686,42,72,8 

DATA 186,9,42,89,44 ,28,73,56,8,26, 
36 ‚42 ,32,58,8,26 

DATA 116,42,112,26,44,70,88,68,42, 
88,0,42,116,46,48,19 

DATA 34,17,16,23,38,23,17,34,19,42, 
40,8,74,28,20,69 


DATA 28,58,32,27,38,30,58,328,27,38, 
48,186,8,26,21,208 

DATA 19,18,36,35,48,37,22,23,32,17, 
18,17,16,23,22,908 

DATA 8,42,28,21,98,48,0,58,21,84,19, 
s8,128,8,26,19 

DATA 84,21,98,128,8,76,66,48,38,21, 
36,21,72,19,36,19 

DATA 58,184,8,76,66,47,68,74,104,8, 
92,492,28,21,908,128 

DATA 8,786,66,42,72,8,92,42,28,74, 
184,8,28,74,28,69 

DATA 28,186,120,9,74,28,23,39,21,84, 
19,34,17,88,69,186 

DATA 89,8,42,118,18,38,184,17,74,B, 
28,17,34,19,36,21 

DATA 38,21,36,66,42,128,8,28,17,34, 
19,28,21,22,18,19 

DATA 36,21,38,23,185,8,74,116,32,78, 
16,65,42,8,74,78 

DATA 52,50,19,36,21,38,23,105,8,58, 
38,21,84,19,34,17 

DATA 32,23,54,57,58,8,66,36,37,352, 
74,128,8,26,34,19 

DATA 28,21,38,21,36,19,34,17,32,23, 
238,23,16,24,106,8 


DATA 26,34,19,94,21,38,23,92,41,5%, 
23,32,17,98,8,42 

DATA 44,28,44,20,73,90,8,92,44,20, 
44,20,21,89,498,8 

DATA 74,28,22,53,51,18,42,120,8,68, 
66,44,78,89,26,8 

DATA 28,18,51,53,22,24,105,8,28,17, 
34,19,28,21,38,28 

DATA 44,28,105,99,9,24,17,96,19,36, 
21,42,23,24,46,66 

DATA 46,9,48,51,53,55,99,44,0,91,68, 
70,64 ,66,45,8 

DATA 48,53,998,55,94,8,41,78,67,78, 
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5038 
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4861 
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5177 


4595 


4821 
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279 DATA 36,21,38,23,32,17,18,44,80,168, s228 230,177,232 ,224 ,98 ‚2088 ‚231 ,96,, 1989 

99,169,95,32 ,237,38 | 294 DATA ?3,78,95,189,65,88,45,77,79,68, 5318 
288 DATA 32,228,88,176,7,2088,148,87,3, 5438 | 59,8,44,985,3,168 
| 32,205,980,96,160,99,169 295 DATA 9,32,9,91,185,211,201 ,28,144, 5915 
281 DATA 1085,32,237,98,32 ,228,98,176, 5874 247,96,169,146, 169,108 ,32 

243,140,88,3,76,205,98,14 296 DATA 237,90,32,130,94,176,243,32,81, 5678 
282 DATA 115,69,84,32,83,73,98,69,8,14, 4961 89,176 ‚238 ‚232 ‚32 ,12,31 
| 114,79,84,65,94 ,69 297 DATA 32,244 ,93,176,229,165,253,72, 6283 
283 DATA 08,168,99,169,148,32,237,98,32, 5875 165 ,254 ‚72,165 ,251 ‚72,165 ,252 
| 244 ,93,176,14 ,32 ,22,31 2938 DATA ’2,165,169,72,165,1708,72,165, 65488 
284 DATA 32,81,89,176,6,32,12,91 ,232, s284 253,72,165,254,72,169,2,141 

208 ,237,986,14,100,92,65 299 DATA 998,3,1984,133,170,104,133,169, 5988 
285 DATA 87,32,82,69,76,65,84,73,86,69, 58646 32,56,91,206,98 ,3 ,288 ,242 

32,984,79,8,160,99 388 DATA 184,133,168,184,133,167,32,56, 6875 
|ees DATA 169,173,32,237,990,32,244 ,93, 6946 91,184,133,178,104,133,169,76 

176 ,225,76,152,94,14,189,79 381 DATA 56,91,108,82,65,87,32,66,79,88, 5561 
287 DATA 86,69,32,82,69,76,65,84,73,96, 5952 8,169,194,160,1808,32 

69,32,94,79,8,168 392 DATA 237,90,32 ,228,88,176,147,148, 5438 
288 DATA 993,169,214,32,237,90,32,228,88, 5474 38,3,32,285,99,173,98,3 

176,192,132,74,169,08,106 383 DATA 248,136,281,7,176,132,195,63, 6659 
288 DATA 141,84,3,76,32,95,14,114,69,83, 35377 72,169,8,157,127,3,104,76 

69,84 ,32,77,79,68 384 DATA 282,95,115,69,84 ,32,77,85,82, 5595 
2838 DATA 69,9,168,188,169,31 ,32,237,38, 5961 75,8,169,222,160,109,32 

32 ‚228,88, 176,157,152,74 385 DATA 237 ,98,32,228,98,176,58,1408,74, 5348 
291 DATA 169,8,106,141,89,3,72,32,32,95, Sios 3,32,285,98,96,115,89 

184,16,33,168,8,162 386 DATA 84,32,76,73,78,69,32,83,67,68, 5261 
292 DATA 88,132,176,134,177,169,16,145, 5727 76,69,8,255 ,255 ,255 

176 ,2808,145,176,208,169,0,145 387 DATA 8,255,0,255,8,255,0,255,8 ,255 3262 


65,45,9,48,18,19 
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293 DATA 176,288,145,176 ‚288,288 ,238, 
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Gurs 


Sieben mal schneller 
in den Speicher 


Beim Kriechtempo der Floppy 
wird das Laden zur Geduldspro- 
be. Der Auto Fast Loader Genera- 
tor (AFLG) macht Schluß mit un- 
freiwilligen Kaffeepausen. Vor je- 
dem Programm wird ein zwei 
Block langer Fast Loader ange- 
bracht. Ergebnis: Das Programm 
wird siebenmal so schnell gela- 
den. Als kostenlose Dreingabe 
gibt's den Auto-Start, 

Der Start mit RUN führt ins erste 
Menü: Taste ] lädt ein Programm 
von Diskette. Taste 2 bringt das 
Directory auf den Bildschirm. Die 
SHIFT-Taste hält die Anzeige an, 
RUN/STOP bricht sie ganz ab. 
Drücken von 3 beendet das Pro- 
gramm. Der AFLG holt das alte 
Programm im Schnellverfahren in 
den Speicher und zeigt seine An- 
fangs- und Endadresse an. Wohin 
soll das modifizierte Programm 
geladen werden? Das zweite 
Menü stellt drei Möglichkeiten zur 
Auswahl: den bisherigen Pro- 
grammstart auf der Diskette, den 
normalen Basic-Start, wie er im 
Zeiger in den Adressen 43/44 fest- 
gelegt ist, und eine frei wählbare 
Adresse. Sie muß in dezimaler 
Form oder als arithmetischer Aus- 
druck wie 124096 +8= 256 ein- 
gegeben werden. 

Den letzten Schliff gibt man sei- 
nem Programm mit dem Auto- 
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Michael Pall ıst das 
Warten auf die lahme 
Floppy leıd. Sein 
Schnellader bringt 


Programme ım Blıtz- 


tempo in den Speicher. 


Start. Bei Menüpunkt 1 ist dazu ein 
Basic-Befehl von maximal neun 
Zeichen Länge einzugeben, z. B. 
RUN oder SYS XXXXX. Für Ma- 
schinenprogramme bringt Punkt 2 
den Start durch Geisterhand. Ein- 
fach die Einsprungadresse .dezi- 
mal oder als Rechenausdruck an- 
geben. Nach dem Laden wird 
dann direkt mit einem JMP durch- 
gestartet. Wer sein Programm wie 
üblich per Hand in Gang bringen 
will, wählt den dritten Menüpunkt. 
Zum Äbspeichern des Programms 
wird im letzten Menü die Taste 1 
gedrückt und der neue Name ein- 
gegeben. Nach dem Speichern 
landet man wieder im gleichen 
Menü, so daß mehrere Kopien 
hergestellt werden können. Ein 
Blick ins Directory läßt sich mit Ta- 
ste 2 werfen. Mit der Taste 3 wird 
der Generator verlassen, 


87 CHKSU 


37 7? 
42 Fa 
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n9 FS 
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Wi MOMESEHP STERN OR.D SEM 


Das Programm wird nun mit 
LOAD "Name*,8,1 in Sekunden- 
schnelle geladen. Tritt dabei ein 
Fehler auf, so wird der Ladevor- 
gang abgebrochen und ein LOAD 
ERROR ausgegeben. Schon bei 
Programmen mit drei Blöcken 
Länge läßt sich der Auto Fast Loa- 
der Generator nutzbringend an- 
wenden. Auch mehrteilige Pro- 
gramme können schneller gela- 
den werden. Dazu muß einfach je- 
der einzelne Teil mit einem 
Schnellader versehen werden. 
Natürlich darf dann nur der erste 
Teil einen Auto-Start erhalten. 

Der zwei Blöcke lange Fast Loa- 
der wird im Bildschirmspeicher 
abgelegt. Wer seine Floppy mit 
einer anderen Gerätenummer als 
der üblichen Acht betreibt, muß 
sie durch Poke 2080,X neu einstel- 
len. Die verbesserten Laderouti- 
nen haben noch einen angeneh- 
men Nebeneffekt. Statt der ge- 
wohnten häßlichen Knarrgeräu- 
sche gibt der Lesekopf jetzt nur 
noch ein leises Klicken von sich. 
Die Interruptzyklen für den Disk- 
controller wurden nämlich erhöht, 
um die Lesekopfverstellung zu be- 
schleunigen. Der gleiche Effekt 
läßt sich von Basic aus durch 
OPEN1,8,15,"M-W" + CHR$(6) 

+ CHR$(28) + CHR$(1)+ CHR$(15) 
erzielen. Michael Pall 
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FOR P=®8 TO I:FOR 2=188 TO 215:5=8 
FOR B=«1 TO I6:READ DıiIF P THEN 
PRINTHI.,CHRS (DI: 

S=S+DINEXT BIREAD CiIF C<>S THEN 
PRINT "DATA ERROR IN ZEILE*Z:END 
NEXT ZıIF P=8 THEN INPUT *FILENAME*: 
FS:OPEN 1,8,1,F8:PRINTWI1,CHRS (1) 
CHR$ (8) 

RESTORE !NEXT P:CLOSE I 

DATA 26,8,255,255,138,50,48,35,34, 
32,69,78,76,71,32,66,1321 

DATA 89,32,77,96,808,65,76,76,8,0,8, 
162,258,154,169,8,1284 

DATA 133,186,98,216,162,9,142,32, 
2098,142,134,2,162,14,142,33,1885 
DATA 298,32,68,229,162,119,189,0,4, 
73,128,157,0,4,282,16,1591 

DATA 245,169,98,141,33,288,169,5,168, 
13,32,30,171,162,8,169,1715 

DATA 2,133,294 ,32 ,215,170,32,63,171, 
56,182,199,32,63,171,165,186®8 

DATA 254,73,51,32,210,235,32,63,171, 
6,199,32,63,171,189,82,1883 

DATA 12,232,134,253,32,194,8,32,215, 
170,32,215,178,166,253,198,2316 
DATA 294,16,211,32,63,171,32,69,171, 
92 ‚228 ,2535,201,499,144 ,249,2177 

DATA 281 ,52,176 ,245,32,210,253,56, 
233,49,18,181,253,178,189,82,2314 
DATA 12,141,172,8,189,83,12,141,173, 
8,76,235,239,72,165,196,1948 

DATA 32,177,255,104,76,147,239,72, 
165,1986,32,188,255,194,76,150,22668 
DATA 255,24,185,118,133,99,169,12, 
133,96,160,8,177,95,8,41,1821 

DATA 127,32,210,255,288,48,16,244, 
96 ,32,69,229,169,248,32,174,2164 


DATA 8,169,368,32,168,255,32,174,255, 


169,96,32,184,8,169,8,1787 
DATA 133,144,168,2,32,16$,235,133, 
195,32,169,285,133,196,165,144,2309 


Dr ONELENS TERROR 2 


DATA 288,48,138,16,239, 166,195, 165, 
196 ,32,285,189,32,63,171,32,2093 
DATA 165,255, 166, 144 ‚208,28 ,201,0, 
248,17,32,210,255,32 ‚225,255 ,2433 
DATA 248,16,173,141,2,41,1,208,249, 
248 ‚228 ,32,215,178,168,1,2117 

DATA 2098,194,8,32,215,170,169,224, 
32,174,8,32,174 ‚255,48 ,248 ,2175 
DATA 3,32 ‚228 ,255,248 ‚251 ,169,283, 
291,3,208,3,76,35,8,76 ,2039 

DATA 2083,11,72,32,68,229,169,106,32, 
194,8,169,2,133,188,169,1783 

DATA 8,133,187,168,211,184,183,240, 
13,168,177,187,32,210,255,200 ,2526 
DATA 1956,183,209 ‚246,134 ,211,162,8, 
32,18,225,201,13,248,6,157,2232 
DATA 8,2,2232 ‚208,243, 134, 183,32 ,202, 
170,169,11,141,17,208, 184 ,2056 
DATA 72,133,185,32 ‚221,243, 104,72, 
169,111,32,184,8,32,185,255,2818 
DATA 133,99,32,169,,283,72,3,93,201, 
48,208,12,104,104,32,169,1726 

DATA 255,201 ,13,208 ,249,,76,171,255, 
169,27,141,17,2098,32,218,170,2497 
DATA 165,95 ,32,218,255, 104,32 ,218, 
253 ,32,169,255,32,210,255.201,2508 
DATA 13,208 ,2468,189,239,32,174,8,32, 
174 ‚255 ,32 ‚228 ‚235 ‚240 ‚251 ‚2356 
DATA 184,168,104,104,152,208,3,76, 
35,9,76,203,11,32,215,178,1669 
DATA 32,215,170,32,96,165,232,134, 
122 ,32,121,165,230,122,169,2,2039 
DATA 133,123,32,139,173,76 ,247,183, 
169,8,133,183,32,83,9,169,1883 
DATA 239,32,174,8,32,174,295,169, 
242 ,32,174,8,169,35,32,168,1943 
DATA 285,169,48,32,168,235,32,179, 
255,169,255,32,174,8,162,6,2194 
DATA 169,48,12,32,168,255,202,208, 
247 ,32,174 ,255,169,8,141,188,2328 
DATA 14,169,96,141,58,15,141,201,13, 
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169,99,32,174,8,189, 148, 1658 
DATA 14,32,169,255,232 ‚224,159 ,288, 
245,32,174 ,255,169,2,141,188,2498 
DATA 14,169,111,32,174,8,162,8,189, 
s5,12,32,169,255,232 ‚224 ‚1837 

DATA 28,208 ,245,32,174,2533,168,8,32, 
166,13,169, 132,141 ,281,13, 1961 

DATA 128,169,58,133,174,169,15,133, 
175,169,254,133,95, 160,255 ,32 ‚22368 
DATA 39,14 ,42,1768,45,32,39,14,173,0, 
68,208,18,172,1,6,977 

DATA 192,2,144,30,136,132,95,160,0, 
185,2,6,145,174,288,195, 1739 

DATA 35,208 ‚246 ,152,24,101,174,133, 
174,144 ,2,230,175,173,0,6,2837 

DATA 208,283,169,8,32,132,9,169,226, 
32,174,8,32,174 ,255,32,1875 

DATA 215,178,169,27,141,17,208,174, 
58,15,173,51,15,32,205,189, 1851 

DATA 169,45,32,210,285,173,58,15, 
172,51,15,24,101,174,144,1,1631 
DATA 208,56 ,233,32,170,152,233,15, 
24 ,181,175,32,285,189 ,32 ‚228 ‚2897 
DATA 255,248,251,169,234,1680, 12,32, 
30,171,162,2,160,16,32,12,1938 

DATA 229,174 ,58,15,173,51,15,32,208, 
189,169,41,32,210,255,169,2009 

DATA 145,32,210,255,162,79,189,8,2, 
157,68,3,202, 168,247, 182, 1981 

DATA 9,76,60,8,32,238,9,76,65,11, 
172,50,15,173,51,15,1088 

DATA 148,211,13,141,215,13,169,169, 
208,11,160,43,148,211,12,208,2857 
DATA 148,213,13,169,168,141,210,13, 
141,214,13,169,52,133,95, 169 ,2082 
DATA 15,133,96,169,8,133,934,,141,22, 
14 ,169,254 ‚24 ,181,95,144, 1604 

DATA 2,230,98,133,95,2230 ,94,197,174, 
165,96 ,229,175,144 ,235,165,2469 
DATA 174,105,233,56 ,229,35,141,240, 
13,166,94 ,202,,142,219,13, 169 ,2311 
DATA 248,160,12,32,30,171,162,18,76, 
89 ,8,32 ,215,178,32,215, 1661 

DATA 170,32,96,165,232,189,90,2,240, 
8,157,138,14,232 ,224,9,1908 

DATA 208 ,243,169,13,157,138,14,238, 
142,22,14,160,169,169,245,208 ‚2303 
DATA 3,32,238,9,140,65,13,141,66,13, 
162,79,189,68,3,137,1378 

DATA 8,2,202, 16,247 ‚232 ‚88,229, 168, 
27,76,80,8,169, 111,32, 1461 

DATA 174,8,162,6,189,75,12,32,168, 
253 ,202,16,247,32,174 ‚255 ‚2007 

DATA 169,1,32,83,9,169,96,141,50,15, 
169,58, 133,172,169,13,1477 

DATA 133,173,169,97,32,174,8,169,54, 
133,1,32,209,252 ‚178,12, 1824 

DATA 168,8,177,172,32,168,255,32, 
219,252 ,208 ,239,32,,70,246,,163,2431 
DATA 55,133,1,169,1,32,152,9,169,27, 
141,17,2098,76,203,11,1484 

DATA 48,32 ,30 ,88,45,66,77,45,69,5,2, 
165,63,18,170,181,1188 

DATA 6,133,6,181,7,133,7,76,7,3,7,1, 
8,105,97,45,804 

DATA 77,8,8,17,93,10,218,8,116,164, 
21,32,43,59,11,75,868 

DATA 11,53,11,66,78,92,156,11,194, 
11,203,11,58,8,17,222, 1282 

DATA 11,218,8,116,164,88,82,71,32, 
768,79,65,196 ,68,73,82 ,1421 

DATA 69,67,84,73,82 ,217,69,79,68, 
197,80 ,82,71,45,83,84 ,1455 

DATA 65,82,84,,32,168,66,65,83,73,87, 
45,83, 84 ‚85,82 ,212,1356 

DATA 63,68,82,69,83,83,69,32,65,78, 
71,69,66 ,894,286 ‚98 , 1255 

DATA 82,71,32,83,85,86,197,66,65,83, 
73,87 ,45,86 ,89,78, 1220 
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DATA 69,72,204,74,77,80,32,98,95.,32, 
65,68,82,69,83,83, 1265 

DATA 197,75,869,73,798,32,65,85,84,79, 
983,94 ‚63,92 ,‚212,80,1443 

DATA 82,71,45,78,65,77,69,32,166, 
147 ,76,69,68,69,85,88, 1263 

DATA 82,69,93,63,69,58,8,147,65,85, 
84,79,83,84 ,85,82,1218 

DATA 84,58,13,0,17,29,18,65,146,85, 
84 ,79,19,78,146,65,977 

DATA 83,84,18,76,146,79,69,68,69,82, 
18,71,146,69,78 ,89,, 1221 

DATA 82,65,94,79,82,32,32,48,67,41, 
32 ‚686 ,89,32,77,46,,946 

DATA 88,65,76,76,13,13,0,228,2,32, 
69 ,229,32,147,252,76,1389 

DATA 169,245,169,0,133,174,169,249, 
141,408,3,238,175,96,169,11,2173 
DATA 141,17,208,165,174,201,20,208, 
244 ,165, 175,201 ,3,209 ‚238 ,76 ‚2446 
DATA 8,4,8,8,34,76,72,178,0,49,234, 
102,234 ,71,254,74,1482 

DATA 243,145,242,14 ,242,80,242,51, 
243,97,241 ,202 ,241 ,237,2,104 ‚26816 
DATA 184,32,21,253,32,83,228,32,239, 
237,185,196 ,32,12,237,169,2062 

DATA 111,32,185,237,162,8,189,2268,4, 
32 ‚221,237 ,232 ‚224 ‚48,268 ,2348 

DATA 245,32 ,254 ‚237 ,2808,162,3,138, 
1986,186,8,18,42,198,48,42,1635 

DATA 153,3,7,19,153,4,7,18,18,18, 
153,5,7,18,133,6,701 

DATA ?,152,185,864,168,202,16,223, 
132,162,169,6,197,162,208 ‚252 ‚2285 
DATA 1208,169,8,133,174,169,192,133, 
175,169,16,133,144, 180 ‚235 ‚32 ‚2174 
DATA 167,4 ,42,176,41,160,2,32,167,4, 
165,144 ,2088,6,169,32,1519 

DATA 141,125,4,182,8,185,2,8,145, 
174 ‚280,192 ‚234 ‚288 ‚248 , 152 ,2194 
DATA 24,181,174,133,174,144,2,239, 
175,198,144 ,48 ,208 ,297,169,16,2139 
DATA 42,18,133,144,152,8,248,11,134, 
198,189,9,5,157,118,2,1354 

DATA 202,209 ,247 ,76 ,288,2,1689, 11, 
141,8,221,162,3,173,9,221 ,2064 

DATA 16,251 ,173,0,221,142,90,221,16, 
3,36,1,234 ‚234 ‚234 ‚234 ‚2016 

DATA 174,8,221,189,3,7,234,174,0, 
221,29,2,7,174,8 ‚221, 1636 

DATA 29,1,7,2234,174 ,8 ,221 ,29,8,7, 
153,0,6,200,288, 198, 14687 

DATA 96,77,45,69,5,2,165,175,188,2, 
141,20,2,141,25,2,1072 

DATA 141,38,2,173,0,255,133,6,173,1, 
255,133,7,105,96 ‚255, 1845 

DATA 153,8,3,200,208 ‚247 ‚76 ,7,3,77, 
46,898,63,76,78,32,1349 

DATA 33,8,0,169,4,133,49,78,,209,244, 
169,15,141,7,28,169,1446 

DATA 128,141 ,152,2,182,8,169 ,224, 
141,91,2,133,0,32,153,213,1743 

DATA 281,2,176,44,,128, 162,255 ,32, 
163,3,162,2,32,100,3,88,1485 

DATA 173,8,4,240,23,201 ,36, 176,22, 
133,6,32,75,242 ,285,1,1369 

DATA 4,248,12,144,18,173,1,4,133,7, 
176,195,76 ,236 ‚218,24 , 1653 

DATA 8,72,162,8,32,86,213, 120,202, 
138,32,103,3,104,48,144 ,1459 

DATA 3,76,18,230,78,77,213,199,0,4, 
172,0,24,16,251,168, 1501 

DATA 16,148,8,24,169,2,133,133,148, 
9,24 ,74 ,74,74,74,141,12089 

DATA 8,24 ,234,10,41,15,141,0,24,173, 
133,8,41,13,141,8,992 

DATA 24,234,19,41,15,141,98,24,234, 
160,15,1408,8 ,24 ‚232 ‚208, 1502 

DATA 198,96,8,0,0,9,9,8,0,8,0,0,0,0, 
8,9,294 


Auszug aus unserem Lieferprogramm 


Ersatzteilversand per Nachnahme 


. 
(Orig. Commodors/Philips/usw. Neugeräte mit 8 Mon. Garantie) (Original Commodore) z. B.: IC's 
SFO 1001 795, Monitor Grün’Ton 298,— 8501/7801 54,90 02 37.48 
SFD 1002 935.— 04 5— 325303.01 47,71 5504 33,05 
CBM 710 1299,— Vo 1841 635,— 32534 1-08 70,85 6510 43,75 
w CBM 720 1795,— VG 1530 39,- 325572.01 44,15 8520 34,88 
CBM 80 1800, Druckerständer K-REE 901225-01 28,80 522 36,56 
CBM 9090 3,— Papier weiß 30081 2,55 901226-01 34,88 0526 43,84 
Pq 10 5643.— Diskatien 10 108 39,— 901227.03 34,06 0532 48,84 
PC 20 9063. — Farbband 2BVC1525 Z1— 901229.05 34,B8 6561 5245 
Erweiterung 512 KB 495.— Userportstecker 986 808718 Mhz 50, 6549 139.54 
540 KB 795,— Reinigungsdisk 27,50 VC20 Moaiwator 70,48 6531 65,77 
Backuptape für PC 4 2899.— Tastaiwabdeck CHA 14,95 Netzteil Cha 91.— 8701 


ee Preise in DM inkl. MwSt, zzgl. Nachnahme + Verpackung DM 8,50. An DM 800,-—— Porto u. Verpackung frei 


Mailbox 64: 


Ihr Weg, um Telefonkosten zu sparen, 
aber nicht am Spaß 


Software inkl. Automodem DM 229,— 
nur das Automodem DM 159,— 
nur die Mallbaxsoftware DM 129,— 


Auf der Disk sind: Mallboxprg. 38 K, 
Editor 8 K, Terminalprg. 4 K, Wählauto- 
mat 8 K, Mallbex-Files 160 K. 

Zum Betrieb werden benötigt: C 64/128 
mit einer oder zwei Floppies 1541 oder 
ein IEC-Bus-Laufwerk, 2. 8. SFD 100%. 
Ein Automodemworsatz und ein Akustik- 
koppler oder Modem. Ein Betrieb über 
Postmadem ist möglich. Das Automodem 
bietet Autoanswer, Autowahl, RS232 in- 
tegriert, Resertaster, Schalter Automo- 
dem ein/aus, LEDs für Carrier, Aut, Lig. 
usw. Die Mailbox ist Bix-ähnlich seiten- 
orlemiert und hat z. B. folgenden Aufoau: 
10 Inhalt 20 Usergroup 30 Pinnwand 

31 persönliche Mail 

40 Datex 50 Mailbaxnr. 55 Sysopbox 
60 Tips und Tricks 

70 Fundg. 80 Datenbank 99 beenden 
c0 consolecom 


Btx-Decoder 
ürC 64: 


Fahren Sie Btx ohne Bix-Fernseher auf 
Ihrem C 64/128. 

Das wird benätigt: C 54 mit Btx-Modul 
und normaler Fernseher ohne Decoder, 
wenn Sie Seiten drucken oder speichern 
wollen, brauchen Sie noch eine Floppy 
und einen normalen Drucker. 


Preis nur DM 698,— 
Wir liefern alles für die DFÜ 


Rudolf Möllendeck — Ihr Spezialist für 
DFÜ — Alte Linnersir. 24, 4150 Krefeld 1, 
Tel. 0 21 51/2 01 30, 

Mailbox /801 339, Btx 920 163 025 


Computerprognosen Kabbalistik Programm 
von Parapsychologie und Kabbalist erstellt und kinderleicht zu beglenen 
INHALT: 

Persönlichkeitsanalyse: Charakter, Inneres Wesen, Ihr Intellekt, Ihre Per 
sönlichkeit. 
Monats- u. Jahreshoroskop: beliebiges Datum, Schicksalsweg, Lebensweg 
und Lebenshoroskop 
Blorhytmus jeder Tag in % und Monatskurve Glückssteine, Glückszahlen, 
Metalle und Farben Pianetarische Ausstrahlung Ihrer Pearson und Planeten- 
beherrscher 
Ihre Krankheitsdisposition 
Für Schwangere: Junge oder Mädchen 
Partnerwahl 
mit EXPERTENTEIL 
volle Diskette nur 280,00 DM. Nur per Nachnahme 
Für Apple nur auf Bestellung. Wir suchen noch einige Wiederverkäufer 
Bestellung und Information 
Chr. WEDEWER 
Tel:029 41/2 1262 
Stirper Str. 101, 
4780 LIPPSTADT 
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3D-CONSTRUCTION-SET 

Wern Sie in die Welt der DXGrafik ein- 
steigen, so ist dies genau das Richtige. 
Sie missen nur Ihren Körper eingeben, 
dann stehen Ihnen folgende Möglichkeiten 
zur Verfügung: Abspeichern, Einladen, 
Zerren, Stäuchen, Vergrößern, Verklei- 
nern, Verschieben, Drehen, Sichwinkel 
ändern, Hardeopies erstellen. 


M.A.G.-CAD 

>Systen für den VC-6%. Mit Hilfe eines 
Joysticks und 29 neuem Befehlen können Sie 
Ihre Grafiken und technischen Zeichnungen auf 
dem Bildschimm erstellen und ausdrucken oder 
abspeichern. 


M.A.G.-GRAFIK 

Es stehen Imen 15 Crafikbefehle imBasic 
zur Verfügung. Spritessteerung, Text- 
Grafik Mischung und ein kinderleichtes 
re von Grafiken wird Ihnen er- 


STATISTIK-PROFI 

Alle Ihre Daten können Sie nın statistisch 
auswerten. Sie können mit 5 Datensätzen 
gleichzeitig arbeiten und auf verschiedene 
Arten grafisch aumerten: Balkendiagram, 
Str ichdiagram und D-Kichergraf ik. Hardeopy 
dieser Grafiken ist möglich. 


PETTILETEN SG: 


ALLE 4 PROGRAMME incl. Diskette, Porto, 79 en 
Verp. und deutschen Anleitungen nur 


M.A.G.-SOFTWARE, Schwarzwaldring #9 
7505 Ettlingen %, Tel.: 07243/28606 


9“ Monitor. Monochrom grün ent- 
spiegelt. Auflösung über 20 MHz. 
BAS/Video-Eingang. Eigenes Netz- 
teil 220 V. Passend für alle Apple u. 
Commodore und ähnliche. 

Best.-Nr. 65032 NUR DM 199,90 


Kostenlosen Katalog anfordern 


Schmeißen Sie ihn weg! Ihren alten Commodore/ 
ATARI-Joystick, Kaufen Sie bei uns den neuen 
Trickball. Gesteuert durch den Handballen. Äußerst 
sensibel. Dazu ein Superpreis. Lieferung paarweise 
kpl. mit Anschlußkabel für alle Commodore und 
ATARI-Computer. Unser Paarpreis for your Joy. 
Best.-Nr. 940931 das Paar nur DM 24,50 
ab 3 Paar Best.-Nr. 94032 nur DM 19,90 


Bühler Computer, Postfach 32, 7570 Baden-Baden, Tel. (07221) 71004 
Bühler Shop, Waldstraße 46, 7500 Karlsruhe 
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gegen Diskettenchaos 


Die Floppy 1541 ist ein intelligen- 
tes Laufwerk. Sie ist mit einem ei- 
genen Prozessor ausgestattet. Ihr 
Betriebssystem ist doppelt so groß 
wie das des C 54. 

Entsprechend groß ist auch die 
„Intelligenz“, mit der das Lauf- 
werk seinen Besitzer zu ärgern 
versteht. Das Spektrum der Bos- 
heiten reicht von verschwunde- 
nen Programmen bis zu vermurk- 
sten Directorys. 

Im Kleinkrieg mit der Floppy stellt 
DISKORG den idealen Bündnis- 
partner dar, Durch einfache Me- 
nüwahl werden alle Floppyfunk- 
tionen zur Verfügung gestellt. Zu- 
sätzlich gibt es einige Extras, um 
Diskettenfehler zu beheben oder 
von vornherein zu verhindern. 


Kleinkrieg mit der 
Floppy 


Nach dem Start des Programms 
erscheint das Titeldisplay mit dem 
Menü: 

Gerätenummer der Floppy än- 
dern 

New = Formatieren 

Check Disk 

Ändern Diskname/ID 
Formatkennzeichen ändern 
Schreibschutzbits ändern 

@ Fehlerkanal der Floppy lesen 
Directory mit Scrolling 
Erweitertes Directory 

Ordnen Directory (alphabetisch) 
Initialisieren 
Validieren 

Kopieren 
Umbenennen 
Löschen 
Programmblockcheck 
prüfen) 

Zurückholen gelöschter Files 

Quit = Ende 

Gerätenummer der Floppy än- 
dern (Zeile 540) 

Dieser Programmteil ist eine über- 
arbeitete und verkürzte Version 
des Programms DISK ADDR 
CHANGE der Test/Demo-Disket- 
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(Kettung 


Beim Arbeiten mit der 
Floppy gibt’s häufig 
Pannen. Mit DISKORG 


im Werkzeugkasten 


braucht man sich vor 
Diskettenproblemen 


nicht zu fürchten. 


te. Es darf nur die Floppy ange- 
schaltet sein, deren Gerätenum- 
mer (vorübergehend!) geändert 
werden soll. Als Gerätenummern 
sind die Zahlen 8 bis 15 zulässig. 
New = Diskette neu formatieren 
(Zeile 670) 

Formatiert eine Diskette wahlwei- 
se mit oder ohne ID. Das Formatie- 
ren ohne Angabe einer ID löscht 
das Directory. Es funktioniert nur 
bei vorher schon einmal formatier- 
ten Disketten. 

Achtung: Wurde die ID per Pro- 
gramm geändert, so erscheint 
beim Neuformatieren ohne ID wie- 
der die alte ID der ersten Forma- 
tierung! 


Defekte Diskette 
EEREERRHEHTTRRGSEER; 


Im Gegensatz zum Programm 
PERFORMANCE TEST der Tast/ 
Demo-Diskette werden zwecks 
Zeitersparnis KEINE Schreib/Le- 
setests durchgeführt. Bei Ver- 
dacht auf defekte Sektoren kann 
die folgende Funktion eingesetzt 
werden: 

Check Disk. = Überprüfung der 
Diskette auf defekte Blöcke 

(Zeile 1260) 

Dieser Programmteil entspricht 
von der Funktion her dem Pro- 
gramm CHECK DISK der Test/ 
Demo-Diskette, ist aber wesent- 
lich schneller. Es stehen zur Aus- 
wahl: 
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a) Leseprüfung (dauert etwa fünf 
Minuten) 

b) Schreib/Leseprüfung (Schrei- 
ben und Verifizieren (dauert 10 
Minuten)) 

Achtung: Bei der Schreib/Lese- 
prüfung wird die Diskette ge- 
löscht! 

Ändern von Diskname/ID (Zeile 
850) 

Nach Ausgabe des bisherigen 
Eintrags können Diskettenname 
(16 Stellen) und/oder ID und For- 
matkennzeichen (fünf Stellen) im 
Block 18/0 geändert werden: Die 
entsprechenden Bytes in diesem 
Block sind: 
Byte 144-161 = 
162/163 = ID 
164 = unbenutzt 

165/166 = DOS- und Formatkenn- 
zeichen (normalerweise 2A) 

Wird nur RETURN eingegeben, 
so bleibt der gegenwärtige Ein- 
trag für Name beziehungsweise 
ID unverändert. 


Diskettenname 


Schreibschutz 
ERSTE 
Formatkennzeichen ändern (Zeile 
1670) 

Hier läßt sich ein globaler 


Schreibschutz erzeugen. Bis auf 
das Neuformatieren mit ID sind 
keinerlei Schreibzugriffe mehr 
möglich. Der Schreibschutz kann 
unter demselben Menüpunkt 
auch wieder entfernt werden. 
Zum Setzen oder Löschen wird in 
das Byte 2 in Block 18/0 der Buch- 
stabe X beziehungsweise A (nor- 
maler Wert bei der Floppy 
VC1541) eingetragen. 

Jeder Versuch, auf eine so ge- 
schützte Diskette zu schreiben, 
wird mit der Fehlermeldung „73 
CBM DOS V2.6 1541" abgewiesen. 
Schreibschutzbits ändern (Zeile 
2420) 

Setzt/löscht den Schreibschutz für 
einzelne Files durch Setzen/Lö- 
schen von Bit 6 der Filetypken- 
nung in Byte 0 des jeweiligen Di- 
rectoryeintrags. Die so geschütz- 


ten Files sind bei Ausgabe des Di- 
rectory durch ein Kleiner-Zeichen 
hinter dem Filetyp markiert, also 
zum Beispiel: 

12 "TEST" PRG< 

ACHTUNG! Dieser Schreibschutz 
schützt zwar vor dem einfachen 
Scratch-Befehl (S:Name), aber 
nicht vor dem Überschreiben mit 
dem Klammeraffen (SAVE'@:Na- 
me")! 

@ Fehlerkanal der Floppy lesen 
(Zeile 510) 

Liest den Floppy-Fehlerkanal und 
gibt gegebenenfalls die Fehler- 
meldung auf den Bildschirm aus. 
Directory ausgeben mit Scrollen 
(Zeile 3410) 

Gibt das Directory (wahlweise un- 
sortiert oder alphabetisch sortiert) 


auf Bildschirm oder Drucker aus: 
DISKNAME ID 
FILENAME Länge * Typ< 
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Nach der vollständigen Ausgabe 

kann der Text durch die CRSR- 

UP/DOWN-Tasten zurück oder 

vorwärts gescrollt werden. 

Sollten sich am Anfang des Direc- 

tory unsinnige Zeilen ergeben, so 

liegt dies an einem manipulierten 

Block 18/0 (Fortsetzadresse un- 

gleich 18/1, siehe dazu bei Ord- 

nen des Directory). 

Erweitertes Directory (Zeile 4160) 

Auf Bildschirm/Drucker werden 

zusätzlich zur normalen Directory- 

ausgabe weitere Angaben zu den 

Files gemacht: 

— Ladeadresse bei PRG/USR- 
Files 

— Track und Sektor des 1. Daten- 
blocks 

Weicht die Startadresse eines 

Programmfiles vom Basic-Start 

(2049) ab, so wird sie invers darge- 

stellt. 

Bei relativen Files erfolgt die Aus- 

gabe aller Fileparameter: 

— Anzahl der Datenblöcke 

— Track und Sektor des ersten 
Datenblocks 

— Anzahl der Side-Sector-Blöcke 

— Track und Sektor des ersten 
Side-Sector-Blocks 

— Anzahl der Records (Datensät- 
ze) 

— Recordlänge in Zeichen 

Weiterhin erfolgt ein Vergleich 


Floppy 


der belegten Blöcke nach den An- 
gaben in der BAM (Block Avail- 
ability Map) und nach der Summe 
der belegten Blöcke in der Direc- 
tory. Bei Abweichungen wird eine 
Warnung ausgegeben (siehe auch 
Funktionen Validate und Pro- 
grammblockcheck). 

Ordnen des Directory (Zeile 3200) 
Liest alle Directoryeinträge in den 
Rechenspeicher, ordnet sie in al- 
phabetischer Reihenfolge und 
schreibt sie auf die Diskette zu- 
rück. 

Normalerweise liegt das Direc- 
tory auf Track 18, Sektor 
0,1,4,7,10,13,16,2,5,8,11,14,17,3,6,9, 
12,15 und 18 in dieser Reihenfol- 
ge. Bei kopiergeschützten Disket- 
ten zum Beispiel ist diese normale 
Fileverkettung manchmal manipu- 
liert. Insbesondere wird oft in 18/0 
eine Folgeblocknummer ungleich 
18/1 eingetragen. Bei solchen Dis- 
ketten ist die Sortierfunktion nicht 
anwendbar. Das Programm bricht 
mit einer Warnung ab. 
Initialisieren (Zeile 510) 
Initialisiert die Floppy. Die BAM 
der eingelegten Diskette wird in 
den Speicher des Laufwerks ein- 
gelesen. 

Nach Ausführung der normalen 
Validate-Funktion V steht die ver- 
änderte BAM noch nicht im Spei- 
cher des Laufwerks, das heißt, die 
Floppy hat noch die alte BAM ge- 
laden. Vor dem Weiterarbeiten 
sollte initialisiert werden. 
Validieren (Zeile 1050) 

Prüft entsprechend der Verket- 
tung (ÄAufeinanderfolge der 
Blocks) der einzelnen Files im Di- 
rectory die Belegungsbits in der 
BAM und korrigiert diese, falls nö- 
tig. 

Achtung: Validate bringt keine 
Hilfe bei fehlerhafter Verkettung 
von Files, zum Beispiel bei einer 
Schleife in der Verkettung oder 
wenn mehrere Programme den 
gleichen Anfangssektor bean- 
spruchen (siehe Funktion Pro- 
grammblockcheck). 

Kopieren von Files (Zeile 1090) 
Kopiert Files nach Eingabe des al- 
ten und des neuen Namens. 
Löschen von Files (Zeile 1200) 
Löscht Files, auch mit Jokerzei- 
chen. 
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Umbenennen von Files (Zeile 
1170) 
Ändert den Namen von Files nach 
Eingabe des neuen und des alten 
Namens. 

lockcheck = Kettung 
prüfen (Zeile 1860) 
Gibt die Verkettung (Reihenfolge 
der einzelnen Blocks) von Files auf 
den Bildschirm aus mit den Optio- 
nen: 
E = einzelne Files darstellen 
B = Block suchen. Es wird nach 
dem File gesucht, der einen be- 
stimmten Block enthält. 
A = Alle Files darstellen 
Z = Zurück zum Menü 
Fehler in der Programmverket- 
tung können durch fehlendes In- 
itialisieren und wahrscheinlich 
durch einen versteckten Fehler 
im DOS beim Befehl SAVE *@: 
... entstehen. Um sie zu beseiti- 
gen, braucht man einen Diskmoni- 
tor und viel Geduld. 
Bei Doppeleinträgen im Directory 
sind die Files meist noch beide 
vorhanden. 
Zurückholen gelöschter Files (Zei- 
le 2590) 
Liest im Directory die als gelöscht 
markierten Files (DEL-Files) und 
fragt für jedes, ob es wiederher- 
gestellt werden soll. Wenn ja, ist 
noch der Filetyp anzugeben. Das 
File wird dann rekonstruiert. Die 
Nummern der belegten Blöcke 
werden auf den Bildschirm ausge- 
geben. 
Quit = Ende 
beendet das Programm. Es wird 
ins Basic zurückgekehrt. Mit RUN 
wird neu gestartet. 
Das Programm verwendet drei 
Maschinenroutinen, die beim Start 


‘ in den Speicher gepoked werden. 


Die erste liegt im Bereich von 
$0334 bis $03FF. Sie liest das Di- 
rectory ein. 


Die beiden anderen Routinen ste- 
hen im Speicherbereich $C000 bis 
$COCB. Sie scrollen den Bild- 
schirm- und Farbspeicher nach 
unten (für Cursor Down bei der Di- 
rectory-Ausgabe) und sortieren 
ein Stringarray. 
Das Programm ist in allen Funktio- 
nen mit DOS.HYPRALOAD und 
EXBASIC-Level II verträglich. 
(Andreas Soik) $ 
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POKE 53288,8:POKE 53281,8:POKE 686,1:POKE 

53272,21:10%=-PEEK (186) 

GOSUB 16498:1G605UB 1578 

IF PEEK <828)=174 AND PEEK <491698)=133 

THEN 108 

GOSUB 4898 

DIM Ast 147) ,5(28),T(28):Asl2)= 

OsSSRS2zunzrmuumuzeemnumnn® 

PRINT "IRVSIGLOFFI ERAETENUMMER DER FLOPPY 
AENDERN* 

PRINT *"IRVSINIOFF) EW=FORMATIEREN* ,"EN* 

PRINT "ERVSICLOFFI HECK DISK" 

PRINT “IRVSIALOFFI ENDERNI2SPACESIDISK- 

NAME/ID* 

PRINT "IRVSIFLIOFF] ORMATKENNZEICHEN 

LBSPACES JAENDERN" 

PRINT "ERVSISIOFF] CHREIBSCHUTZBITS 

[2SPACES IAENDERN" 

PRINT "IRVSIELOFF) FEHLERKANAL AUSLESEN* 

PRINT "I[RVSIDLIOFF) IRECTORY M.SCROLL @#" 

PRINT "ERVSIELIOFF) RWEITERTES DIRECTORY" 

PRINT "IRVSIOLOFF) RDNEN DIRECTORY 
ALPHABETISCH)" 

PRINT "IRVSIILOFF) NITIALISIEREN*,"eI* 

PRINT "IRVSIVIOFF) ALIDIEREN" ,"@V* 

PRINT "ERVSIKIOFF) OPIEREN®,,*"eC* 

PRINT "{RVSIULOFF] MBENENNEN" ‚,"ER" 

PRINT "ERVSILIOFF) OESCHEN",,"@5"* 

PRINT "IRVSIPLOFF] RGBLOCKCHECK = KETTUNG 
PRUEFEN*® 

PRINT "IRVSIZIOFF) URUECKHOLENL2SPACES] 

GELOESCHTER FILES” 

PRINT "IRVSIQLOFF) ENDE": 

GET XS: IF x$="" THEN 238 

IF KS=r@" HE="IRVSIFEHLERKANAL @*1 

6070 sıo 

IF %8="G" 548 

IF X8='C" 1268 

IF x2="n" 8508 

IF X2="]" KS="IRVSIINITIALISIEREN @I1" 


678 
10350 
3410 


GOSUB 1648:PRINT X2:G0SUB 3058:G0SUB 3158: 
G0TO 3758 

GOSUB 1648:PRINT "LRVSIGERAETENR.DER 
FLOPPY AENDERN” 

PRINT *tDOLNIBITTE ALLE FLOPPYS BIS AurF 
DIE, DEREN":PRINT "NR. GEAENDERT WERDEN 
SOoLL*?: 

PRINT " [RVSJAUSSCHALTEN I" 

INPUT *tDOWNIGEREATEADR. ALT! L2SPACES, 
CBM F,3LEFTI*IRS:GH VAL (XS) 

INPUT *tODOWNIGEREATEADR. NEU: T2SPACES, 
CBM F,3LEFTI*IXSı Y=VAL (X) 

IF 60%8 OR 6%>15 OR Y<8 OR Y>i1S THEN PRINT 
*[DOLN,RVS JUNZULAESSIGE GERAETEADRESSE !*ı 
scoro 3780 

GOSUB 3978 

OPEN 1,6%,15 

PRINTHI,"M-L* CHRS (119) CHRS (8) CHR# 
(2) CHRS (Y+32)> CHRS$ (Y+B4)ıCLOSE 1 
BA=YıPOKE 186,Y 

PRINT *tDOWNI< GERAETEADRESSE IN W#* 
Y"'GEAENDERT >":1G0SUB 3868:60T0 3750 

GOSUB 1648:PRINT "LRVSIFORMATIEREN @N* 
Z=1:60SUB 3858:PRINT "IDOLNILE ER E 
DISKETTE EINLEGEN!!!" 

PRINT *"tDOWNJZURUECK INS MENUE MIT '2'* 
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INPUT *LDOWNIMIT/OHNE ID<M/0/2 IL2SPACES IM 
tBaLEFTI"IZE 

IF Z8C>"M" AND 28<>"0* AND 28<>*2" THEN 
>08 

IF z8="2* THEN RUN 

INPUT *"L2DOLWNJOISKNAME :2SPACES,CHBM F, 
SLEFTI"IKS 

IF LEN (XS) >16 THEN PRINT *tDOWNIMAX. 16 
ZEICHEN! *:60T0 738 

IF Z#C>"M" THEN 788 

INPUT "IDOWN,SSPACESIID :[2SPACES,CBM F, 

SLEFTI"IYS 

IF LEN (Y#)>5 THEN PRINT "LDOWNIMAX. 5 
ZEICHEN!":GOTO 768 

IF XS="ICBM F]* OR Y$="ICBM F)" THEN RUN 

HS" ’Nı"+ks 

IF z&C>"M* THEN 1068 

PRINT *tDOLNI< BITTE CA. 88 SEC WARTEN! >* 

OPEN 1,6%, 15:PRINTHI,K$+","+Y5:1G0T0 3748 

GOSUB I1648:PRINT "IRVSJIAENDERN VON DISK- 

NAME/1D*:GOSUB 3858:F«® 

OPEN 1,6%,15:0PEN 2,6%,2,"4":100SUB 3838 

K“=144100SUB 3388: 482="*:FOR U=i TO I6:GET 

N2,YSıNS=XB+H VS: NEXT 

PRINT "[2D0OUNJALTER DISK-NAME=L[L3SPACES, 

RVS)"'NS 

PRINT "NEUER DISK-NAME=-L3SPACES) "HE" LUP)* 

PRINT SPC<IT>H: INPUT Ys 

IF xX#=Y8 THEN 948 

IF LEN (YS)>18 THEN PRINT *tDOWNIMAX. 16 
ZEICHEN! ":ıG0OTO 898 

VS=LEFTS (YS+*LIESHIFT-SPACEI",16) 

*=144100SUB 3389: PRINTW2,YSr ıiF=1 

H=162:G0SUB 3588: K5=**"tFOR U=1 TO 5tGET 

H2,YSıKS-NSHYSıNEXT 

PRINT "tDOWNJALTE DISK-10=t3SPACES ,RVS]"x$ 

PRINT "NEUE DISK-10=t3SPACESI"x® 

PRINT "LUP)" SPCCI4)3: INPUT Y& 

IF YS$=X# THEN 1810 

IF LEN (Y8#)>5 THEN PRINT "LCDOLNIMAK. 5 
ZEICHEN! ":ıG0TO 968 

K“162:60SUB 3589: PRINTN2,YSH ıF=1 

IF F=1 THEN PRINTHI,*"L2 2 8 ı8 8* 

G0TO 3748 

GOSUB 1648:PRINT "LRVSIVALIDIEREN @V*ı 

SosuB 3O30:X5="V" 

OPEN 1,6%,15,%5:60T0 37408 

GOSUB 1648:PRINT *ERVSIKOPIEREN @C*:G0SUB 

3859: T8=*Cı" 

INPUT "ITDOLNINAME ALT:L2SPACES,CR,M F, 

SLEFTI'IKS 

INPUT "TDOWNINAME NEU: TZSPACES,CBM F, 

3LEFTI'IYS 

IF X&="ICBM FI" OR Y#=*"ICBM F1* THEN RUN 
IF LEN (X8)>16 OR LEN (YS)>16 THEN 1188 

HERTE+Y6+*'=*+X8:1G0T0 1868 

GOSUB 1648:PRINT "IRVSIJUMBENENNEN ER*"ı 

GOSUB 30858: T8=*"R:*:G0TO 1198 

GOSUB 1648:PRINT "IRVSILOESCHENLOFF J-ENDE 
MIT <RETURN>* :GOSUB 3050 

INPUT * LDOWNIPROGRAMMNAME =» L3SPACES,CEM F, 
LEFTINIKBEIF LEN (HS) >16 THEN 1218 

IF X8=*[CBM F1" THEN RUN 

NE="St"+K$ı00T0 19868 

GOSUB I64B:PRINT *IRVSICHECK DISKLOFF] 
=UEBERPRUEFEN ALLER BLOECKE*:GOSUB 3958 

PRINT "IDOWN,RVSILLOFFIESEN ALLER BLOECKE 
“CA 5 MIN DAUER>* 

PRINT "I[2SPACESIFILES WERDEN IRVSINICHT 
{OFFJ ZERSTOERT I|* 

PRINT "TDOWN,RVSIBLOFF JESCHREIBEN UND 
VERIFIZIEREN (CA 18 MINI" 

PRINT "[2SPACESIDISKETTELZSPACESIWIRD 
[RVSIGELOESCHTIOFFI I!" 

PRINT "LDOUN,RVSIZIOFFJUM MENUE ZURUECK 1* 

PRINT "tZDOWNIGEBEN SIE [RVSILIOFFI/LRVSIB 
[OFF} ODER [RVSIZIOFF) EIN It2SPACESI*"; 

GET Z$ı IF ZSC>"L* AND Z82<>"B" AND Z8C>"2* 
THEN 1330 

PRINT "IRVSI"Z#E"L[OFFI*tIF Z#="Z" THEN RUN 

PRINT "IDOLNJES WIRD GEPRUEFT: SPUR 


t2BSPACES ISEKTOR TDDWNI* 

OPEN 1,8,1S:0PEN 2,8,2,*"#" 

F=B8: YeBiABLO)="I7riABLII= ED IABLA I = "Dar 
ASCZI=" IB :ABLH)="3H 1ASLHI =" 17" 
ASKEI="3S"r1ASC7TI="IG":iIF 22="B* THEN GOSUB 
1488 

FOR Z=d TO 7 STEP ZıXn"YelivYVAL (ASCZy)ıLlie 
VAL <AstZ+1>) 

FOR T»-X TO Y:ıFOR S«8 TO WiIF Z6='B" THEN 
PRINTWI,"L2 2 8", T)1S:60T0 1428 

GOSUB 3948 

GOSUB ISO8:1NEXT !NEXT INEXT ıCLOSE 1 

IF F=d8 THEN PRINT *LDOWNI< DISK OK.ALLE 
BLOECKE LESBAR >*:G0T0 1468 

PRINT *L2DOWNJIFOLGENDE BLOECKE SIND 
DEFEKT: LDOWNI" 

FOR U=1 TO FiPRINT "L2SPACES]I” RIGHTS <" ” 
+STRS (T(U)),2)",” RIGHTS (" "+STR$ 
StuU)),2)" *"IIıNEKT 

IF Z&=*’B* THEN X&="NICHECK DISK*'ıYS=*939*: 
60T0 B18 

K$="1"1G0T0 1868 

YS=*":FOR K=1 TO SI: YS=YS+CHR8 ( RND 

(162 )8235) : NEXT 

PRINTW2,YSYSY8Y8Y8} IRETURN 

PRINT SPCt19)*LUP ‚„SSspACES ,UPJ":PRINT SPC 
19)37T* +8 

GOSUB 3178:IF X=8 THEN RETURN 

F=F+l1 TCF)"TIS<F)=FilIF F<2B THEN RETURN 
CLOSE Z2:CLOSE 1:PRINT "L2DOWN)IMEHR ALS 28 
BLOECKE DEFEKT !!*:60T0 3788 

PRINT *"[DOWNITEST ABGEBROCHEN !*:1G60T0 3768 
PRINT *tUP] 


u — 
PRINT *"ISHIFT -) <C> DIPL. ING.ANDREAS SOIK 
84.06. 1985[SHIFT -]* 

PRINT "ESHIFT -1 „—tL108SPACES] 


MAKLRAINSTR.SLIOSPACES ,SHIFT -)* 

PRINT "I[SHIFT -) \WA,LIBOSPACES18B88 
MUENCHEN SBL7SPACES,SHIFT -)" 

PRINT "ISHIFT -) “L18SPACESITEL. (889) 
632 13 2314SPACES,SHIFT -)* 


*[CLR,RVS,CEM 7ID0ISKORGS.3 (C) 

DIPL. ING.A.SOIKLESPACES 14.6. 198SLTUHTI*t 

RETURN 

GOSUB 164B8:PRINT "IRVSIFORMATKENNZE ICHEN 
AENDERN* :GOSUB 3850 

PRINT *LDOWNISCHRE IBSCHUT2 SETZEN DURCH 
AENDERUNG* 

PRINT "DES FORMATKENNZEICHENS IN DER BAM 
0" 

PRINT "[DOWNIAB SOFORT KOENNEN KEINE 
SCHRE 1BVORGAENGE " 

PRINT "AUSSER NEUFORMATIEREN 
DURCHBEFUEHRT":PRINT "WERDEN !TDOWN]” 

PRINT "IRVS]1SLOFF]=SCHRE IBSCHUTZ SETZEN 

EDOLN]* 

PRINT "IRVSILIOFF)=SCHRE IBSCHUTZ LOESCHEN 

[DOWN]I” 

PRINT "GEBEN SIE [RVSIStOFFI ODER IRVSIL 

OFF) EIN |* 

GET XS: IF XSC)"5" AND Ksc>*’L* THEN 1758 

OPEN 1,6%,13:0PEN 2,6%,2,*"#* 

GOSUB 3938:%=2:60SUB 35808 

IF X2="5" THEN FPRINTH2,"K*"FIRS=* GESETZT)" 

:G0TO 1828 

K$=" BELOESCHT>*" 

PRINTWI,"M-W* CHRSE (1) CHRE (1) CHRS (1) 

CHR$ (65) 

PRINTW2,"A*r 

PRINT "LDOLINI<SCHRE 1BSCHUTZ "XS: PRINTHI,"UE 
2 8 18 ®8* 

PRINTRI,*"1":G0TO 3748 

GOSUB 1648:PRINT "IRVSIPROGRAMBLOCKCHECK 

OFF I=FILEKETTUNG PRUEFEN*:GOSUB 3858 

00SUB 4858 

PRINT "IDOWN,RVSIELOFF) INZELNES FILE 
DARSTELLEN*® 
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PRINT "IRVSIBIOFF] LOCK SUCHEN IN FILE” 

PRINT "IRVSIJIALOFF] LLE FILES DARSTELLEN® 

PRINT "{RVSIZIOFF] URUECK INS MENUETDOUN]I” 

PRINT "GEBEN SIE I[RVSIELOFFI/ERVSIBLOFF)/ 
IRVSIALOFF) ODER IRVSIZIOFFI EIN !* 

GET XSılf KS<C>"E" AND XsC>*B" AND Kacy*A" 

AND KS<>*2" THEN 1948 

PRINT * ERVSI*KHS:SC28>)=ASC (HB): IF KS=*2" 

THEN RUN 

IF X8$="B" THEN 2000 

IF %2="A* THEN 2028 

INPUT *LCDOWNIFILENAME : [3SPACES,CEM F, 

SLEFTI")7ZSı IF Z$="ICBM F]" THEN RUN 

G0TO 2828 

INPUT "IDOUN,RVS ‚2SPACES]SPURLOFF ‚ZSPACES] 

BOL3LEFT)I"HTCISI 

INPUT "ERVSISEKTORLOFF ‚2SPACESIOL3LEFTI"? 

st19) 

PRINT *LDOWNI<DIRECTORY EINLESEN?>" 

GOSUB 39878:U=-T<19)1ıV"8<19) 

IF Z=2 THEN 3788 

IF S(28)<>69 THEN 2188 

U=LEN (28) 

FOR F=3 TO 2: IF LEFTS (AS(F) ,U)=eZ5 THEN 

S5(28)=3:G60T0 2118 

NEXT 

PRINT *"t2DOWN,RVSIFEHLER: * CHRS (34)28 

CHR$ 34)" NICHT GEFUNDEN !":GOTO 3788 

FOR F=3 TO 2-1 

PRINT "IDOWN)I" LEFTE (As<F),26> 

PRINT *L25SCBM Y]"ıW=® 

IF D*-i THEN PRINTHS,LEFT$ (A$(F),2691 

PRINTHS,* 

T=-ASC C MIDS (AS(F),28)):15=-ASC < MIDS 
(AS<F),29)> 

IF T=U AND 5=V THEN GOTO 2288 

NS=RIGHTS C STRE (T),2)ı YS=-RICHTS < STRE 
(5),2) 

GOSUB 23998 1 W=Lir 1 

GET Z$ı IF Z8<>"* THEN 3788 

GOSUB 3848 

GET #2,X8:1BET W2,Y8:ıT"ASC (KS+CHRSE (B))ı5= 

ASC {YS+CHR$ (8)) 

KS“RIGHTS ( STRS (T),ZIı Y$3=RIGHT$ ( STR$ 
(8),2) 

IF T=-U AND 5=V THEN G0TO 2258 

IF Tt>8 THEN 2269 

PRINT : IF S(28)=3 THEN 23308 

NEXT :ıGDTO 2338 

W=W+lı IF W=5 THEN W=B:1G0SUB 2368:G0T0 2160 

GOSUB 23938 

G0TO 2188 

PRINT X3","\Ys 

PRINT *tDOLN,RVSJENTHAELT GESUCHTEN BLOCK 
ıtUP]" 

IF D»I THEN PRINTWS,X$","YS:ıPRINTWS, 
"ENTHAELT GESUCHTEN BLOCK I!” 

G0TO 3788 

IF D»-i THEN PRINTWS 

G60T0 3788 

PRINT X" ,"Y# 

IF D»-i THEN PRINTHS,X8*,"Y# 

RETURN 

PRINT x#* ,"T#"L35SPACESI" 

IF D=1 THEN PRINTWS,Xx®#*,"YS"LSSPACESI*} 

RETURN 

GOSUB 1848:1PRINT "IRVSISCHRE IBSCHUTZBITS 
AENDERN" :GOSUB 3858 

T1208)=3:60SUB 3878 

PRINT *TDOWNIJILOESCHSCHUTZ -BIT AENDERN! 
[RVS 1J/NIOFF ‚DOWN]* 

T(i8)=Tı5(8)=5 

Ti2B8)"2:18(28)=2100SUB 3968 

PRINT "IDOWNI<ENDE DIRECTORY)” 

GOTO 3748 

GET XS: IF KS<>"J" AND XS<C)’N” THEN 2498 

PRINT SPC(38)"LUP ,RVSI"K$ 

IF KS="N* THEN 4118 

IF V AND 64 THEN VrV-S41Y$=" "10070 2548 

V-V OR G4aiyYseri”t 

PRINT "LUP]I” SPC(23>Y# 

GOSUB 3580: PRINTH2,CHRS (V)7:PRINTWI,"U2 2 
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2568 
2538 


25108 
2628 
26398 


2648 
26698 


2678 
26688 
2690 


27008 


2718 
27208 
2730 
©7408 
27350 
2768 
8770 


2788 
2798 


2808 
2810 
2828 
2638 
2848 


28950 


2860 
2878 
2888 
2898 
29008 
2918 
2920 
2938 
2948 
29350 
2988 
29370 
2988 
2998 


3888 


3818 
3020 
3958 


38608 


3978 


3980 
3899 
3108 


3110 
3128 
3130 
3148 
3158 


3168 
3178 
3208 


3210 
32208 
3238 
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BO’T{F-1)38(F-1) 
60T0 4118 
GOSUB 1648:PRINT "ERVSIZURUECKHOLEN 
GELOESCHTER FILES" 

PRINT "tDOWNJERMOEGLICHT DAS 
WIEDERHERSTELLEN* 

PRINT "VON VERSEHENTLICH GELOESCHTEN 
FILES" 

PRINT "<NATUERL.ICH NUR DANN, WENN DIESE 
NICHT* 

PRINT "SCHON UEBERSCHRIEBEN WORDEN SIND)" 
PRINT *tDOWNIBEIM SUCHEN WERDEN NUR DIE 
GELOESCHTENL2SPACESIDATEIEN ABGEFRAGT * 
GOSUB 3050:60SUB 1648 

PRINT *IDOWNI<BEGINN DER SUCHE>*" 
Ti2O)=1:G0OSUB 3878: PRINT "LDOWNI<CENDE 
DIRECTORY>" 

PRINT "tDOWNIKEINE WEITEREN GELOESCHTEN 
FILESI":G0TO 3748 

’ 

PRINT LEFT$ <x$,21> 

G0SUB 2748:60T0 4128 

PRINT ‚"ZURUECKHOLEN J/N?* 

GET Tst IF TSC>"J" AND TS<>"N" THEN 27508 
IF T&="N* THEN RETURN 

PRINT "TDOWNIWAR ES EIN [RVSIPLOFFI 
ROGRAMM-LSSPACES ‚RVSISLOFF JEGENTIELLES-* 
PRINT "LIISPACES,RVSIRLOFFJELATIVES- 
[4SPACES ,RVSJULOFFISER-F I LE ?* 

GET TZiIF TSC>"P" AND TEC>H*S* AND TE<C)*R" 
AND TSC>"U" THEN 2738 

IF T#="P" THEN 2=138 

IF T8=*5* THEN 2=129 

IF TS="R" THEN 2=132 

IF T8="U*" THEN 2=131 

OPEN 3,6%,3,*4*:PRINT "LDOWNI<FILE 
WIEDERHERSTELLEN, . . >LDOWN]J *:PRINT "SPUR 
SEKTOR*® 

T=ASC ( MIDS (X8,28))1S=ASC < MIDS (X8, 
29)> 

PRINT *t7SPACES ‚UPJ*":PRINT T}S*tup)* 
PRINTWI,"B-A 8"T7S:00SUB 3178 

IF %(>8 THEN 2988 

PRINTHI,"Ul 3 8*T35 

GET #3,281GET #3,Y# 

T=ASC (ZS+CHRS (B))ı5=ASC (YE+CHRS (0)) 
IF TC>8 THEN 2868 

*=2+W.32:G0SUB 35808 

PRINT#2,CHRS (2935 

PRINTWI,"UE 2 B"TeF-19rSc<F-1) 

PRINT "TZDOWNIFILE WIEDERHERGESTELLT!* 
G0OTD 3748 

IF R<>65 THEN 3158 

PRINT "L2DOWNIFILE WURDE BEREITS 
VEBERSCHRIEBEN! I * 

PRINT "WIEDERHERSTELLUNGL2SPACES INICHT 
L2SPACES IMOEGLICHL! I * 

PRINT * EDOLNI<VAL IDIEREN? "IPRINTMI, "U" 

G0TO 3788 

PRINT *LOOWNIFLOPPY-GERAETEARDRESSE: "O%* 
t4LEFTI* CHR$ < INT (G%/10)81S7 It INPUT GY 
IF 6%8 OR 6%>15 THEN PRINT *tDOWN,RVSI 
UNZULAESSIGE GERAETEADRESSE I":00T0 3758 
Ve7EB:K=PEEK (V)ITPOKE V,I8St1IF Z=1 THEN 
OPEN 1,6%,15:CLOSE 1:1G0T0 2838 

OPEN 1,6%,15,*"1* 

POKE V,KXtIF PEEK c144)<>128 THEN 3118 
PRINT *tDOWN,RVSIFEHLER! FLOPPYH "GH" 
tASC28] NICHTE INGESCHALTETI*"tCLOSE 1:60T0 
3750 

IF Z=i1 THEN RETURN 

GOSUB 3178:CL0SE 1 

IF x<>8 THEN 3180 

RETURN 

PRINT *LDOWN,RVSIFEHLERKANAL:*IPRINT K* * 

"2" "U" "V*LDOWUN]J” 

60T0 3758 

INPUTW1.,X,"#,U,V:RETURN 

GOSUB 1848:PRINT "ERVSIORDNEN DIRECTORY 
(ALPHABETLSCH)* 

GOSUB 3950 

PRINT "LDOUNI<DIRECTORY EINLESEN>" 

TIEB)"4:1G0SUB 3878 


WO HERZENISTENH END. CM 


PRINT "EDOWNICDIRECTORY WIRD SORTIERT>*" 
SYS 49285: IF TiB)I=I8 AND Sca)=1 THEN 3268 
PRINT "tDOWNIFOLGEBLOCK Von T18,8 ="; 
Tt@)*,"S(@)r7 "IRVS,REDIM 18,1[2SPACES I]! 
[KHTI":GOTO 3788 

PRINT "LDOWNI<DIRECTORY ZURUECKSCHRE IBEN>* 
iF.® 

PRINT#HI,*"UI 2 8"T<F)sSscr) 

FOR W=8 TO 7ıX-2+Ws32:G0SUB 3398 

IF ASC © MIDS (As(U),28)>=8 THEN AS(U)>= 
RIGHTS (AscU) ,32) 

PRINTW2,MIDS <A&{U) ‚27,329 LEFTS (ASCU)>, 
16) ’MIDS (Astu) ,38,3)7 

N=X+28:1G0SUB 3588 

Y=VAL < MID$ (ASCU),17,3)):K"INT (Yrasa)ı 
Y=Y-K:256 

PRINTW2,CHR$ <Y)ICHRE (X)1 

U=U+rltlF U>Z-1 THEN 3368 

NEXT 

PRINTWI,"U2 2 8*"T<F)sSs<F) 

F"F+i:1F T<F)<C>8 THEN GOTO 3278 

GOTO 3748 

GOSUB 164B:PRINT "LRVSIDIRECTORY @SLOFF) 
SCROLLICURSOR UP/DOWN" PRINT SPC<13> *ENDE 
[2SPACES Jı RETURN” 

SOSUB 3858:G0SUB 4599:60SUB 4658 

IF A<>i THEN T(i2837"2 

GOSUB 3878: IF A<>i1 THEN 3518 

ABOI“" "TABCLI="[AOSPACESI"+ASCIY:ASCE)=" 
"+AR(B) 

SYS 49285 

FOR 1=3 TO Z-1:PRINT LEFTS (Ast) ,26) 

IF D=-i THEN PRINTHS,LEFTS (ASt1),26> 
NEXT 

ASCII=RIGHTE (Asti),25)ıASt2)=RIGHTE 
AS(2),25) 

PRINTWI,"M-R" CHRS (258) CHR® (2):1GET Wi, 
“= 

PRINTHI,"M-R* CHRS (232) CHRS (2):GET Wi, 
Ys 

FRASC (KB+CHRE (B))+ASC (YS+CHRS (B))2236 

AS(Z)="BELEOT"+STRS (BE4-F)+* ‚FREI"+STRE 
“F)+* V.564LUP]J* 

PRINT AS(2):PRINT A$(<2) 

IF D=-i THEN PRINTHS ,AS<CZ) ıPRINTWS ‚Asız)ı 
CLOSE 5 

ELOSE 2:CLOSE lı2z=2-j:U=2:1G0T0 3688 

PRINTWI ,"B-P"I27K: RETURN 

GET K$ılIF X$="" THEN 36508 

IF KS="tUP]" THEN 3678 

IF XS="tDOWN]" THEN 3650 

IF KS=CHR® (13) THEN RUN 

G0TO 3698 

IF U>Z THEN 3600 

U=sU+11PRINT :PRINT LEFTs AStUr1) ,BE9> Hr: 

GOTO 3688 

IF U-24<8 THEN 3688 

Sys 491352 

PRINT "THOMEI" LEFTS (AS(U-24) ‚,26)* 
t2300WN)* 

U=sU-1:1G60T0 3688 

STOP 

CLOSE 2iCLOSE 3:60SUB 3128:60SUB 3159 

FOR U=1 TO S8B1GET XSılF KXScC>"" THEN Us 

5888 

NEXT RUN 

2 

CLOSE S:CLOSE 2:CLOSE 11PRINT PRINT SPct 
18)*<< TASTE >>” 

GET X$ı IF X#="*" THEN 3798 

RUN 

T=18:5=B8 

PRINTHI,"UI 2 8*"TIS:ı RETURN 

OPEN 1,0%, 15: PRINT#I,"I*EOPEN 2 ,0%,2,"M*ı 

2=3 

GOSUB 383B:1GET N2,XS:GET H2,Y8:1 T-ASC cHs+ 

CHRS (B))18=ASc {TS+CHR# (8)) 

T(8)=Ti5(8)=5 

K=144100SUB 35BBıX8= "HH yYgur- 

FOR V=1 TO 23:GET W2,XNSIYSEYS+HKBINEKT ı 

AS{l)=LEFTE (18,16) +"L2SPACES]*+RIGHTS 

(Y$,7) 

PRINT "(DOWNI"ASCIHI:PRINT Asc2) 


IF D>8 THEN PRINTHS:PRINTHS ,ASC1):PRINTWS, 
Ans(2) 

IF T(28)=3 THEN RETURN 
IF T(28)=4 THEN 2=0 

GOSUB 3848:GET #2,X8:1GET W2,Y8:1T-ASC (XS+ 

CHRS (B>)1S5=ASC (YS+CHRE (8)> 

F#F+l1 TCF)=TIS(F)=S 

FOR W=8 TO 7ıXe2+W232:100SUB 3988 

Sys 228,2,X# 

VaASC ( MIDS (X3,27>9>:ıY"ASC < MID®S (X, 

28)>> 

IF V-® AND Y<>® AND T(2B>=1 THEN 2720 
IF V=-8 AND Ti28)=4 AND Y<>Bd THEN KS=CHRs 
(255) +85:1G0TO 49848 
IF V-8 THEN 4128 

AS(ZI=NS 
IF Tt28)9<>2 THEN 4838 

PRINT LEFT® (<As(Z),26) 

IF D=1 THEN PRINT#HS,LEFTS (A$(Z),26) 

IF D=2 THEN PRINTWS,LEFTS (AS(2),269, 

IF S(28)=2 THEN 2438 
IF St28)=3 THEN 4238 

Z=2+1 

NEXHT IF T=8 THEN 4138 
IF T=18 AND S<2l THEN 39368 

PRINT *TDOWN,RVS ‚RED IJUNZULAESSIGER 
FOLGEBLOCK LOFF ,WHTI"T*,*S:G0OTO 3788 

RETURN 

GOSUB 1648:PRINT "LRVSIERKWEITERTES 
DIRECTORY" 

PRINT *"IDOKN]J«=ANZEIGE SAEMTLICHER 
FILEPARAMETER"ıPRINT "(ABBRUCH MIT 
<RETURNI)” 

GOSUB 3858 

GOSUB 4658: IF D=ri THEN D»-2 

PRINT *"TDOLNI<DIRECTORY EINLESEN?" 

Ti28)=2:15(28)=3:15(19)=664100SUB 3878:G0T0 

4518 

OPEN 4,0%,4,”"%#" 

VzV AND 13:15<(19)=5c19)-VAL € MIDS (As(2), 
18,33) 

IF V=4 THEN 448S:REM REL 

K=ASC < MID$ (As(2),28>):Y=-ASC ( MIDS 
“As<2),29)> 

PRINTWI,"UI 4 O"XıY 

GET H4,X$:0ET W4,XS:1GET #4,XS:GET H4,Y81 

tLOoSE 4 

KeASC (KE+HCHRE (B))+ASC (TS+HCHRE (B)>#256 

Y=-ASC ( MID$ (A$(Z),28>>:U=ASc < MIOS 
“A$(Z),29)) 

KS=-RIGHTS (*L3SPACESI*"+STRS (K),5)> 
IF vV=1 THEN X8="tSSPACES]* 

YS=RIGHTS ( STR# (Y),2):25=RIGHTS < STR$ 
<ur,2)> 
IF x<>2849 AND V<>i THEN PRINT *ERVSI*H: IF 

D=-2 THEN PRINTHS,"IRVS1"} 

PRINT "LUPI"FTAB(ESIIKS*LOFFI "YS","25 
IF D=2 THEN PRINTWS,* "XS"LtOFF) *"Y8","28 

GOTO 4488 

H=ASC € RIGHTS (As(2),1))tYS=MIDS (A822), 
17,3):Y=VAL (Y8) 

U=sY/121:1IF U<>INT (U) THEN U=INT (Uri) 

V=INT tt(Y-U)2254 7/8) 

PRINT *"LUPJ* TAB(26 IH Y-UF TAB(398 97: *D* IASC 
< MIDS (AS(Z),BBY>5 *ILEFTI,* ASC < MIO$ 
AS(Z),29)) 

PRINT TAB{26)7U: TAB{38); "S*ASC ( MIDE 
ABtZ2),38>> "ILEFTI,* ASC ( MIDS <As(Z>, 

3a1>> 

PRINT TAB{2697V1 TAB{3B) I "R. JE" IK 
IF D<>2 THEN 4488 

PRINTWS,Y-Ur *D*r 

PRINTHS,ASC < MIOS (As(2),28))7 "[LEFTI," 

ASC < MIDS (A$(2),29)) 

PRINTW5,TAB(26>:U:* S"IASC < MIDS <AS(2), 
3B))F5 *ILEFTI,*FASC < MID# (As(iZ),31)) 

PRINTHS5,TAB(ZE)H VE "R.JE*IN 

FOR V=i TO I88:GET XS IF X8<C)*" THEN 3788 

NEXT 1CLOSE 416010 4118 


PRINTHI,."M-R" CHRS (258> CHRS (2)1GET Mi, 
ns 

PRINTHI,"M-R* CHRS (232) CHRS (2)1GET Wi, 
Y$ 

FeASC (XS+CHR$ (BI) >)+ASC CTE+CHRSE (B)).258 
PRINT AS(2)ıPRINT "VON 664 BLOECKEN* PRINT 
"BELEGT" I664-F}" FREI"IFI 

PRINT * NACH BAM-BELEGUNG* 

IF D<>2 THEN 4558 

PRINTWS ,ASt2) ıPRINTHS,"VON 664 BLOECKEN"ı 
PRINTWS5, "BELEGT*"7664-F} 

PRINTWS," FREI"iF}" NACH BAM-BELEOUNG" 
PRINT "LESPACESI*7664-S< 199 "ISSPACESI"} 
St19)7* NACH FILESUMMEN* 

IF D=2 THEN PRINT#S,*LESPACESI"I18864-5(19) 
*"tSSPACESI"35<19>7" NACH FILESUMMEN" 

IF F(>8(19> THEN PRINT *LDOLN,CBM 2,RVS] A 
BWEICHUNG,PRUEFEN !tl"ı 
POKE 646,1 

IF D»2 AND F<>S(19) THEN PRINTRS,*IRVSI A 
BWEICHUNG,PRUEFEN !}!!® 
G0TO 23788 

PRINT *tDOWNJALPHABETISCH BEORDNET J/N 
[3SPACESINIILEFT)*} 

INPUT KB: IF KB<C>"N" AND XSC)’J" THEN 4598 
IF X8="J" THEN A=1 

RETURN 

PRINT "tDOWNIAUSGABE AUFL2SPACESJIDRUCKER 
tESPACESIJI/NE3SPACES INISLEFTI* 

INPUT KSilIF KSC)"N* AND XSC>"J" THEN 4658 
IF XS="J* THEN D=1t0PEN 5,4 

RETURN 

FOR 1-828 TO I1023:READ XKtPOKE 1,K:NEXT 
FOR 1*-49152 TO 49355:READ K:FOKE 1,K:NEKT 
RETURN 

DATA 32,155,1983,32,39,223,32,253,174,32, 
139,176,133,73,132,79,32,163,182 

DATA 169,32,32,117,188,168,2,185,97,0,145, 
73,136,16,248,165,98,133,73 

DATA 165,99,133,74,169,26,32,244,3,168,8, 
32,18,228,145,73,208,192,16,208 

DATA 246,132,139,168,29,32,244,3,184,139, 
162,7,32,18,225,202,208,250,133 

DATA 39,32,18,225,133,98,92,204 ‚235,132, 
139,162,144 ,36 ,32,73,188,32 ,223 

DATA 189,164,139,162,8,189,255,0,2081,8, 
240,6,145,73,200 ,232 ‚208 ,243,169 

DATA 32,145,73,200,232 ,224,5,209,248,160, 
26,177,73,138,72,10,16,9,169 

DATA 68,208 ,2,169,52,145,73,136,1984,41,15, 
178,189,238,3,145,73,136,189 

DATA 233,3,145,73,136,109,228,3,145,73, 
136,176,9,169,42,208,2,169,32,145 

DATA 73,96,8,68,83,88,85,82,69,69,82,83, 

69,76,81,71,92,76,8,162,3,32,18 

DATA 225,145,73,208,202 ‚2808 ,247,96 

DATA 169,191,133,98,133,108,169,219,133, 
181,169,7,133,99,162,0,168,48 

DATA 161,98,143,98,161,108,145,100,198, 
1808,169,255,213,98,288,248,198 

DATA 99,198,101,1693,99,281,3,208,238,189, 
32,145,98,136,288,251,96,0,160 

DATA 8,177,47,48,13,200,177,47,16,8,160,9, 
177,47,201,1,248,1,96,24,169 

DATA 47,185,7,133,110,165,48,105,0,133, 
111,168,8,177,1108,248,236,133,34 

DATA 2088,177,118,153,34,8,192,2,2098,246, 
165,118,133,113,169,111,193,114 

DATA 24,165,113,185,3,133,113,144,2,230, 
114,168,8,177,113,248,61,133,77 

DATA 197,34,144,2,165,34,133,05,208,177, 
113,153,77,80,192,2,208,246, 1608 

DATA 8,177,33,209,78,248,4,176,11,144,207, 
200,196,85,288,241,198,34,176 

DATA 198,168,2,177,118,170,177,113,145, 
110,153,34,8,138,145,113,136,16 

DATA 248,48,178,24,163,118,105,3,133,118, 
144,143,2308,111,288,139,8 
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Burn rer Don 


Directory 


in Reih und Glied 


Wer kennt das nicht: Man hat ein 
mehrteiliges Programm auf Dis- 
kette abgespeichert. Um sich zu 
vergewissern, daß alles geklappt 
hat, listet man das Directory. Doch 
von der erhofften Ordnung ist dort 
nichts zu entdecken. Alles steht 
wie Kraut und Rüben durcheinan- 
der. 

‚Catsort‘' bringt das Chaos in Ord- 
nung. Man kann das Directory 
ganz nach Wunsch sortieren. Zur 
ansprechenden Gestaltung lassen 
sich Trennstriche einfügen. Ver- 
altete Files werden gelöscht. 
Wichtige Programme können ge- 
gen Überschreiben geschützt 
weıden. 

Startet man das Programm mit 
RUN, erscheint das Titelbild mit 
der Aufforderung, die zu bearbei- 
tende Diskette ins Laufwerk einzu- 
legen. Im folgenden Menü hat 
man drei Wahlmöglichkeiten: 

l. Directory anzeigen 

2. Directory sortieren 

3. Programm beenden 

Mit 'l’ wird das Directory ausge- 
geben. Die Ausgabe kann mit der 
CBM-Taste unterbrochen und mit 
der SHIFT-Taste fortgesetzt wer- 
den. 

Mit '2' gelangt man in das eigentli- 
che Sortierprogramm. Äuf dem 
Bildschirm erscheint eine Kopf- 
zeile mit dem Diskettennamen. Im 
unteren Bereich steht das Menü 
mit den wichtigsten Funktionen. 
Der Bildschirmbereich dazwi- 
schen wird als Fenster für das Di- 
rectory benutzt. Ein etwas breit 
geratener ‚Cursor‘ zeigt, welcher 
Fileeintrag gerade aktuell ist. Er 
wird mit den Tasten UP und 
DOWN bewegt. Passen nicht alle 
Einträge auf einmal auf den Bild- 
schirm, wird gescrollt, sobald der 
Zeilencursor oben oder unten an 
den Fensterrand stößt. Mit HOME 
gelangt man an den Anfang des 
Directorys zurück. 

Der Sortiervorgang wird über die 
Funktionstasten gesteuert: Mit 'F3' 
wird das File an der aktuellen 
Cursorposition aus dem Directory 
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Inhaltsverzeichnisse 
auf Disketten sind oft 
ein einziges Durch- 


einander. ‚Catsort‘ 


bringt die Files in eine 


vernünftige Ordnung. 


entfernt und in einen Puffer über- 
nommen. Alle folgenden Einträge 
rücken nach oben auf. Die Zahl 
der Einträge im Puffer ist unbe- 
grenzt. Mit 'F5' wird der zuletzt ge- 
lesene Puffereintrag an der Posi- 
tion des Zeilencursors wieder ins 
Directory eingefügt. Mit 'F7' wird 
das Directory auf die Diskette zu- 
rückgeschrieben. Solange diese 
Taste nicht betätigt wird, bleibt 
die Diskette unverändert. Wenn 
man sich einmal total ‚versortiert’ 
hat, kann man mit der '-'-Taste 
ins Anfangsmenü zurückspringen, 
ohne daß an der Diskette etwas 
geändert wird. 


Trennungsstriche 


einfügen 
BE 


Was passiert, wenn man vier Files 
in den Puffer übernommen, aber 
nur zwei wieder zurückgeschrie- 
ben hat? Vor dem Zurückschrei- 
ben auf Diskette zeigt ‚Catsort' 
alle im Puffer verbliebenen Files 
an. Man kann sie entweder lö- 
schen (Scratch) oder hinten anhän- 
gen. 

Mit der Taste 'L’ (Lock) kann man 
ein File gegen Löschen schützen 
oder ein geschütztes File wieder 
freigeben. Dieser Schutz hilft na- 
türlich nichts gegen versehent- 
liches Formatieren der Diskette. 
Mit der Insert-Taste wird an der 
Cursorposition ein Trennungs- 
strich von 16 '--Zeichen eingefügt. 


WEN IDNRENITTERUSU. DB ZOM 


Er wird als USR-File von Null 
Block Länge angelegt. 

Das DOS (Floppy-Betriebssystem) 
speichert Programme in Blöcken 
zu je 256 Byte auf der Diskette 
ab. Anschließend werden der 
Name dieses Programms, die 
Spur- und Sektornummer des Än- 
fangsblocks und einige weitere In- 
formationen im Directory einge- 
tragen. Damit ein Programm gela- 
den werden kann, braucht nur im 
Directory der Änfangsblock her- 
ausgesucht zu werden. Die weite- 
ren Spur- und Sektornummern ste- 
hen am Anfang jedes weiteren 
Blocks. 

Das Directory befindet sich immer 
in der Mitte der Diskette auf Spur 
18 ab dem Sektor 1. Bild 1 zeigt ein 
Beispieldirectory. Bild 2 zeigt die 
Belegung von Spur 18, Sektor 1. 
Die ersten beiden Zahlen in der 
ersten Reihe geben den nächsten 
Block an, der vom Directory be- 
legt wird. Im Beispiel folgt kein 
Block mehr, was durch die un- 
mögliche Koppeladresse in den 
beiden Bytes angezeigt wird: 
00 FF 82 11 00 44 52 55 

Nun folgt eine Kennziffer, die an- 
gibt, um welchen Filetyp es sich 
handelt. 


00 FF 82 11 00 44 52 55 


FILETYP ABKÜRZ. HEX-CODE 
Deleted DEL $80 
Sequential SEO 381 
Program PRG $82 
User USR $83 
Relative REL 384 


Es handelt sich bei den Files im 
Beispieldirectory ausnahmslos um 
Programme (alle haben eine 82- 
Kennung). 

Die nächsten Zahlen geben an, wo 
das erste Programm 'DRUCKER- 
TEST' auf der Diskette abgelegt 
ist. Dabei wird zuerst die Spur- 
und dann die Sektornummer an- 
gezeigt: 

00FF 821100 445255 

Die 16 folgenden Zahlen enthalten 
den Namen des ersten Pro- 
gramms, und zwar als ASCII- 


Zeichen. Da in diesem Fall der 
Name nur zwölf Zeichen lang ist, 
werden die vier restlichen Bytes 
mit $A0 (Shift-Space) aufgefüllt: 
00 FF 82 110044 52 55 

43 4B 45 52 2D 54 45 53 

54 AO AO A0 00 00 00 00 


O "LEER 


"LE 2A 

PRG 
FPRG 
PRG 
PRG 


1 "DRUCKER-TEST" 
"PRINTER 1.0" 
"DRUCKER-TEST 2" 
"CENTRONICS" 

655 BLOCKS FREE. 


READY. 


Bild 1: Beispieldi 


ld 2: Beispieldirectory a 


ur 18, Sektor 1 


O0 "LEER 


"DRUCKER-TEST" 


"„ LE 


"DRUCKER-TEST 2" 


"CENTRONICS" 
655 BLOCKS FREE. 


READY. 


Bild 3: Sortiertes Directory 


Di MOMEBSSHPLJTERWORLD. SM 


.n.... DRU 
CKER-TES 


Toounana 


.. «..DRU 
CKER-TES 
T 2r no... 


EN 
NTER 1.0 


.... CEN 
TRONICS. 


Die folgenden Bytes sind unbe- 
nutzt und mit Nullen besetzt. Am 
Ende der vierten Zeile steht 

00 00 00 00 00 00 07 00 

Hierbei handelt es sich um die An- 
zahl der durch das Programm 
'DRUCKER-TEST' belegten Blök- 
ke, in diesem Fall ein Block. 
‚Catsort' liest das gesamte Direc- 
tory wie ein Programm in den 
Speicher ein. Dann kann man, wie 
oben beschrieben, mit den Funk- 
tionstasten aufräumen und alles in 
der neuen Reihenfolge in das Di- 
rectory zurückschreiben. Beim 
Beispiel könnte sich für Spur 18, 
Sektor 1 nach dem Ändern der Zu- 
stand in Bild 4 ergeben. 

Die beiden Drucker-Programme 
sind nun hintereinander angeord- 
net und mit einem Strich vom Rest 
abgetrennt. Im Directory-Äus- 
druck (Bild 3) ist das noch deutli- 
cher zu erkennen. 

Catsort wurde mit dem AÄssem- 
bler AS-64 erstellt. Die verwende- 
ten Pseudo-Opcodes (wie .BA, 
.DS, ‚BY) entsprechen weitgehend 
denen des MAE-Assemblers. 

Will man die Farben des Pro- 
gramms ändern, sind dafür in er- 
ster Linie die Routinen START und 
CLRSCR zuständig. Bei START 
steht in Speicherstelle $0813 der 
Befehl 'LDA #6’ für blauen Hin- 
tergrund und Rahmen, in Spei- 
cherstelle $081B der Befehl 'LDA 
#3’ für cyan als Schreibfarbe. Bei 
CLRSCR findet man ebenfalls die- 
sen Befehl ($087B). Leider ist es 
damit noch nicht getan; weitere 
Farbsteuerzeichen findet man im 
Textteil: Hier sind es die Bytes $81 
(orange) und $9F (cyan), die am 
Anfang oder Ende der Ausgabe- 
texte auftreten. 

Eine Routine, die man in anderen 
Programmen gut einsetzen kann, 
ist die Universalausgabe TEXT- 
OUT. TEXTOUT benötigt die An- 
fangsadresse des auszugebenden 
Textes, diese wird in den Spei- 
cherstellen TEXT und TEXT+1 


($70 und $71) abgelegt. TEXTOUT > 
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Bild 4: Sortiert 


irectory auf Spur 18, Sektor ] 
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WANN OHREESHSTERNOIR.D. ZEM 


„m... DRU 
CKER-TES 


Win ae ai 


N 
NTER 1.0 


“se... DRU 
CKER-TES 
F een 


erw. LEN 


TRONICS. 


CHKSUM 8881 


87 
89 
B6 
Eo 
6C 
SF 
28 
F3 


Eo 
SD 
sc 


0833 
BBA1 
BBaRS 
OBEl 
08B3 
28C1 
88C3 
8801 
08D3 
OBEL 
OBES 
BBFI 
OBFS 
2301 
8303 
osil 
8319 


gibt dann so lange alle Zeichen 
einschließlich Steuerzeichen aus, 
bis als Textendemarkierung eine 
0 auftritt. Mehr noch: Werte unter 
13 ($0D) werden als Leerzeichen 
interpretiert, eine 08 gibt zum Bei- 
spiel acht Leerzeichen aus. Das 
spart im Programm eine Menge 
Speicherplatz. Eine Sonderstel- 
lung nimmt das Steuerzeichen für 
weiße Schrift (05) ein. Da ja 05 in 
TEXTOUT fünf Leerzeichen er- 
zeugt, wurde zum Umschalten auf 
weiße Schrift der sonst unbenutzte 
Wert 21 ($15) gewählt. 

Weitere nützliche Routinen sind 
DIRECTORY und FEHLER. DI- 
RECTORY tut das, was der Name 
sagt. FEHLER holt die Fehlermel- 
dung der Floppy, gibt sie aber nur 
aus, wenn wirklich ein Fehler vor- 
liegt. Ansonsten wird das laufen- 
de Programm nicht unterbrochen. 
Beide Routinen arbeiten ohne 
OPEN und CLOSE, so daß keine 
unerwünschten Nebenwirkungen 
auftreten können. 

Das Programm kann als Basic-La- 
der oder als Hexdump eingege- 
ben werden. Der Basic-Lader er- 
zeugt ein fertiges Maschinenpro- 
gramm auf Diskette. Für den Hex- 
dump muß der Checker verwen- 
det werden. Als Startadresse ist 
0801 anzugeben. 

(Norfried Mann/ Dietrich Weineck) 


HH MOMBLESNIITERWOR.D SO M 
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öCC1 FD OB BD 22 10 20 
oCCS BD 25 18 20 FD OB 
eCcDl HD2 FO 085 AS 3E 20 
eCc093 A2 082 28 SS 08 4C 
OCE1 38 28 FO FF BE AE 
OCES AD 22 18 A2 094 AD 
OCF1 FO FF AD AB 22 85 
eCcFS AS 02 85 77 AS 12 
en21 92 20 75 8C CE AF 
oe083 1D AS 76 CS 72 AS 
eD11 73 BO BE AS 76 18 
8019 85 76 38 02 E& 77 
eD21 BD A2 27 20 95 08 
8023 ARE 22 AC AD 22 4C 
8D31 AD IF Bi 74 91 7C 
8039 F3 AS 7C 18 69 20 
eD41 SP 22 ES 7D AS 74 
oD43 AS 75 85 79 AS 78 
BDS1 AS 793 ES 73 BO 21 
2053 18 69 28 85 7A AS 
BD61 D90 B5 7B AD IF Bl 
eD63 78 BB 18 FS AS 7A 
0071 AS 7B 85 79 4C 4D 
8073 ıF A393 90 S1 78 88 
peDB1 38 AS 78 ES 28 85 
0089 73 ES 00 55 73 #5 
onSı 74 AS 73 ES 75 BO 
08083 72 85 74 AS 73 85 
BDA1 AI 28 85 74 AS 50 
eDAS AI 00 85 7C AS 608 
BDB1 AD 22 Bi 74 29 OF 
e0B3S 28 31 2D 4C Bi 2D 
BODCI CS 72 AS 75 ES 73 
eDC93 AS 74 69 20 85 74 
eDD1 ES 75 4C Bi OD AS 
eDDS 7C AS 60 85 7D 60 
@DE1 Bi DI 49 80 91 DI 
BDES 22 98 FS 60 AS 75 
eDF1i DB 8S AS 74 CS 00 
eDFS HC CO 09 38 AS 74 
BEO1 85 74 BO 02 CE 75 
BEBS OD AS DE CI 24 FO 
BE1I1 Sı 28 D2 FF 22 DF 
BE1S CB 23 AS 74 BD AB 
BE21 75 8D AS 22 20 Ei 
BE2ES AB 23 AS 74 C5 72 
BE31 ES 73 988 83 4C Co 
BE33 74 69 20 B5 74 90 
BE41 75 28 DF OD AS D6 
BE4S BO BOB AS 11 20 D2 
BES1 DF BD 4C CO 29 18 
BESS 02 69 208 BD AB 22 
BEGß1 EE AS 22 208 Ei DC 
BESS OE AS 20 CS 7C AS 
BE71 7D 98 91 609 AS 72 
BE73 63 20 85 72 85 7A 
BEBI 85 79 69 00 85 7 
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WIRLORBELDNPESTERN I LD.CCH 


BD | 0E83 
D7 | vESsı 
BD | BES3 
SC | BER1 
60 | BEAS 
66 | BEBI1 
3D | 8EB9 
29 | BECI1 
7C | BECSI 
83 | DEDI1 
D4 | B8EDS 
55 | BEEI 
63 | BEES 
51 |BEFı 
YA|BEFS 
03 | BFeı1 
34 | 8Fo9 
BB |BFı1ı1 
59 |oFı3 
38 |eF2ı 
AE | oF23 
49 |oF31 
A2 | 8F33 
EC | oF41 
BB | oF4S 
87 | oFsı 
B6 | OFS593 
BF |BF61 
22 | oF6S 
22 |orF7ı 
BE | 8F73 
85 | oFBı1 
97 | oF839 
18 |oFsı 
EC | aFs39 
67 |BFA1 
71 |8FA9 
CF '@FB1 
SC |BFB3 
57 |OFCı 
so |aFcs 
ED |OFD1 
47 |oFos 
SR |OFEI 
BF |BFES 
SS |OFF1 
EF |OFF9 
A7|10201 
a9 | 19009 
89 |1011 
54 11019 
SF |ıe21 
F7 |1029 
FO 1031 
CE | 1039 
38 |1941 
90 | 1049 


FOR P=® TO I:FOR 2=188 TO 26815"8 
FOR B=1 TO IS:READ DıIF P THEN PRINT 
1,CHR$ (D>r 

S=S+DINEXT B:IREAD CılIF C<>S THEN 
PRINT. "DATA ERROR IN ZEILE "ZIEND 
NEXT ZIIF P=B THEN INPUT "FILENAME*"} 
FSIıOPEN 1,8,1,F81PRINTHI,CHR#$ (1) 
CHRS$ (891 

RESTORE ıNEXT PICLOSE 1 

DATA 13,8,108,0,158,40,50,48,54,,52,41, 
0,8,8,8,162,836 

DATA 255,154,169,6,141,32,208,141,33, 
208,169,3,141,134,2,32,1828 

DATA 116,8,1698,16,169,8,32,88,8,32, 
228 ,255,201,13,208,249, 1783 

DATA 168,186,169,281,32,80,8,32,228, 
253,201,49,2088,3,78,1586,1874 

DATA 8,201 ,50,288,3,76,143,9,201,51, 
208 ,235,76 ‚226 ,232,132,2073 

DATA 113,133,112,168,8,177,112,248, 
23,201,13,176,5,178,202 ,32,1871 

DATA 149,8,201,21,208,2,169,5,32,216, 
255,208 ,208 ‚231 ,230,113,2242 

DATA 288,227,96,169,147,32,210,235, 
162,0,169,3,157,8,216,157,2208 

DATA 08,217,157,8,218,157,9,219,232, 
208,241,96,169,13,44,169,2148 

DATA 32,76,218,255,32,144,98,202,208, 
250 ,96,32,116,8,169,8,1838 

DATA 133,144,169,8,32,177,235,169, 
111,32,147,255,169,73,32,168,2074 


DATA 235,32,174,255,165,144,48, 112, 
169,8,32,177,2553,169,248,,32 ,2267 
DATA 147,235,169,36,32,168,255,32, 
174 ,255,165,144,16,3,76,25,1952 


Bi V MONEBDNFITERWOR.D 2OM 


DATA 9,169,8,32,198,255,169,96,32, 
150,255 ,32,1865,255,32,165,2094 

DATA 2353,76,232,8,32,185,255,170,32, 
165,253 ,32,205,189,392, 144 ‚2267 

DATA 8,32,165,255,248,5,32,218,255, 
208 ‚246 ‚32,163, ,255,32, 163 ,2385 

DATA 255,165,144 ,288,19,932,141,8,173, 
141,2,201,2,288,213,173,2085 

DATA 141,2,281,1,288,249,248 ,204 ,32, 
171,235,169,8,32,177,255,2395 

DATA 169,224 ,32,147,255,32,174,295, 
32,508,9,32,118,9,756,16,1638 

DATA 8,169,8,32,188,255,169,111,32, 
158,255 ,32,165,233,201 ,49,2971 

DATA 8,144,16,72,32,141,9,32,141,8, 
169,2,141,32,208,104,1258 

DATA 32,218,255,32,165,255,281,13, 
2408,18,48,8,144,245,32 ,210,2082 

DATA 2553,76,84,9,32,171,255,1869,08, 
133,144,48,176,1,96,32,1673 

DATA 118,9,76,132,9,32 ,228,253,240, 
251,96,32,118,9,201,95,1981 

DATA 240,1,96,32,204 ,235,169,2,32, 
195,253,76,16,8,32,101,1714 

DATA 18,32,200,15,32,126,18,32,161, 
13,169,8,141,168,2,169, 1280 

DATA 88,141,169,2 ,32 ,225,12,32,111, 
18,173,168,2,133,116,173,1379 

DATA 169,2,133,117,24,162,4,160,8,32, 
248,253,32,223,13,32,1598 

DATA 124,9,248,251,281,145,208,3,76, 
237,13,281,17,208,3,76,20812 

DATA 43,14,281,134,208,48,169,8,197, 
114,169,88,229,115,176 ,223,2112 

DATA 32,223,13,169,116,197,114,165, 
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117,229,119,144,5,169,145,32,1981 
DATA 218,255,32,493,13,32,225,12,32, 
223,13,76,192,9,201,135,1789 

DATA 208,15,32,223,13,32,106,14,32, 
223,12,32,223,13,76,192,1448 

DATA 9,201,136,208,3,76,194,14,201, 
19,208,6 ,32,223,13,76,1619 

DATA 155,9,201,76,208,33,32,223,13, 
160,2,177,116,73,84,145,1687 

DATA 118,165,116,133,118,165,117,133, 
119,32,117,12,169,145,32,2198,1099 
DATA 255,32,223,13,76,192,3,201,95, 
©208,3,76,16,8,201,148,1756 

DATA 208,242 ,32,223,13,32,179,15,38, 
186,14,32,225,12 ,32,223,1619 

DATA 13,76,192,9,32,116,8,168,17,169, 
38,76,80,8,168,98,1154 

DATA 162,23,24,32,248,255,1698,17,169, 
83,786,80,8,32,138,11,1582 

DATA 32,183,11,169,49,32,168,255,32, 
174 ,255,32,50,9,189,0, 1628 

DATA 133,118,169,88,133,119,162,2,32, 
196 ,255,168,0,32,207 ,255 ,2655 

DATA 144,3,76,50,9,145,118,2080,208, 
243,32 ,204 ,255,177,118,248,2222 

DATA 18,32,183,11,168,1,177,118,32, 
238,11,32,174 ,255,238,119,1783 

DATA 76,151,18,168,3,177,118,248,9, 
192,24,105,32,168,144 ,243,1914 

DATA 238,119,152,56,233,35,133,114, 
165,119,233,0,133,119,169,2,2008 
DATA 76,195,2353,169,0,133,118,169,88, 
133,119,32,56,11,169,08,1715 

DATA 133,118,169,69,133,119,169,1, 
141,178,2,32,138,11,32,137,1397 

DATA 11,162,2,32,201,255,160,0,177, 
118,32,218,255, 144 ,3,76,1838 

DATA 58,9,200,208,243,32 ‚204 ‚235,32, 
207,11,173,170,2,32,230,2858 

DATA 11,32,174,255,32,59,9,169,1,177, 
118,281 ,239,248,175,141,2031 

DATA 176,2,238,119,76,2,11,169,4,141, 
170,2,168,8,169,18,1443 

DATA 145,118,208,173,170,2,145,118, 
152,24,185,31,1698,176,18,169,1906 
DATA 8,145,118,200,1459,118,76,73,11, 
173,170,2,24,185,3,201,1364 

DATA 19,144,2,233,17,191,170,2,2308, 
119,165,114,197,118,165,115,1951 

DATA 229,119,178,200,198,119,160,8, 
152,145,118,206,169,2535,143,118,2503 
DATA 96,169,2,162,8,168,32,186,255, 
169,35,133,235,169,1,162,2082 

DATA 235,168,8,32,189,255,32,192,255, 
76,50,9,169,8,32,177,1891 

DATA 255,169,111,32,147,255, 160,8, 
185,247,15,248,6 ,32, 168 ,255,2277? 
DATA 208,288 ,245,76,174,255,189,8,32, 
177,255,169,111,32,147,255,2513 

DATA 168,0,165,225,15,248,8,32,168, 
235,208 ‚2088 ,243,96,169,8,2212 

DATA 32,177,255,169,111,32,147,255, 
168,8,185,2936,15,240 ,238 ‚32 ‚2284 

DATA 168 ,255,200,208,245,162,48,58, 
233,18,144,3,232,176,249,105,2494 
DATA 38,72,138,248,3,32,169,255,184, 
78,168,235,148,173,2,164,2048 

DATA 211,41,63,145,209,230,211,172, 
173,2,96,169,8,133,126,133,2114 

DATA 127,133,128,162,16,248,6,129,38, 
138,163,128,181,128,133,128, 1908 

DATA 165,127,181,127,133,127,1685,126, 
181,126,133,126,216 ,202 ‚208 ‚229 ,2412 
DATA 165,126,9,48,137,64,3,185,127, 
32,94 ,12,163,128,92,949,1421 

DATA 12,162,8,189,64,3,281 ,48,2088,5, 
232,224 ,3,144 ‚244 ,32,1773 

DATA 218,255 ,232 ,224,5,176,5,189,64, 
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WEALSDRESEN SITE ON. 20 M 


3,208,243,96,72,32,104,2118 

DATA 12,104,41,15,76,118,12,41,248, 
74,74,74,74,9,98,232,1236 

DATA 157,64,3,96,189,8,133,211,162,6, 
32,149,8,168,38,177,13537 

DATA 118,133,129,288,177,118,133,130, 
@08,18,169,129,281,108,176,12,2147 
DATA 32,144,8,165,129,201,10,178,3, 


32,144 ,8,32,12,12,162,1278 


DATA 2,32,149,8,168,5,177,118,32,253, 
11,208,192,21,144 ,246, 1750 

DATA 32,144,8,168,2,177,118,72,41,15, 
170,2082,189,255,15,32,1632 

DATA 253,11,189,2,16,32,253,11,189,5, 
16,32,253,11,104,91,1918 

DATA 64,248,5,169,62,32,253,11,162,2, 
32,149,8,76,141,8,1414 

DATA 56,32 ,248,255,142,174,2,140,173, 
@2,24,162,4,168,0,32,1598 

DATA 248,255,173,1698,2,133,118,173, 
169,2,133,119,169,18,141,175,2188 
DATA 2,32,117,12,206,175,2,248,29, 
165,118,197,114,163,119,229, 1922 

DATA 115,176,14,169,118,24,185,32, 
133,118,144 ,2,238,119,76,2,1373 

DATA 13,162,39,32,149,8,24,174,174,2, 
172,173,2,76 ,248,,235,1695 

DATA 168,31,177,118,145,124,136,16, 
243,165,124,24,109,32,133,124,1861 
DATA 144 ,2,239,125,165,116,133,128, 
165,117,133,121,165, 128, 197,114,2167 
DATA 165,121 ,229,115,176,33,165,120, 
24,185,32,133,122,165,121,105,1931 
DATA 8,133,123,168,31,177,122,145, 
120,136,16,249,165,122,133,128, 1952 
DATA 165,123,133,121,76,77,13,160,31, 
169,0,145,128,136,16,251,1736 

DATA 56,165,128,233,32,133,114,165, 
121,233,8,133,115,16$,114,197,2096 
DATA 116,165,115,229,117,176,8,165, 
114,133,116,188,119,133,117,96,2008 
DATA 169,90,133,116,169,88,133,117, 
169,0,133,124,169,96,133,125,1866 
DATA 168,2,177,116,41,13,208,6,38,49, 
13,78,177,13,1685,116,1366 

DATA 197,114,165,117,229,115,176,13, 
165,116,169,32,133,116,144,2,1939 
DATA 238,117,76,177,13,169,8,133,124, 
169,96 ,133,125,96,160,4, 1822 

DATA 177,209,73,128,145,209,2008,192, 
34,144 ,245,96,165,117,201,88,2413 
DATA 288,9,165,116,2091,0,208,3,78, 
192,9,56,165,116,233,32,1789 

DATA 133,116,176,2,198,117,32,223,13, 
165,214,201,4,248,11,169,2814 

DATA 143,32,218,255,32,223,13,76,192, 
9,165,116,141,168,2,165,1944 

DATA 117,141,169,2,32,2258,12,78,171, 
9,169,118,197,114,165,117,1928 

DATA 229,115,144,3,76,192,9,165,116, 
195,32,133,118,144,2,230,1811 

DATA 117,32,223,13,165,214 ,281 ,21, 
176,11,169,17,32,218,253,32, 1888 

DATA 223,13,76,192,9,24,173,166,2, 
105,32,191,168,2,144,3,1475 

DATA 239,169,2,32,225,12,76,809,14, 
169,0,197,124,169,96 ,229, 1832 

DATA 123,144,1,96,165,114,133,128, 
1085,32,133,114,133,122,165,115,1817 
DATA 133,121,185,0,133,115,133,123, 
168,31,177,128, 145, 122,136,16, 1770 
DATA 249,56,165,120,133,122,233,32, 
133,120,165,121,133,123,233,8,2138 
DATA 133,121,165,128,197,116,168, 121, 
229,117,176,2208,56,165,124 ‚233 ,2458 
DATA 32,133,124,176,2,198,125,168,31, 
177,124,143,116,136,16,249,1944 

DATA 96,32,2088,14,176,3,32,48,15,32, 


228,108,76,16,8,169,1161 

DATA 8,133,118,197,124,169,96,133, 
119,229,125,144,1,98,32,181,1817 

DATA 108,168,4,162,23,24,32,248,255, 
160,8,1853,167,17,248,6,1685 

DATA 32,210,255,200,208,2453,1653,114, 
141,171,2,1865,115,141,172,2,2338 

DATA 36,165,124,233,32,133,114,168, 
125,233,8,133,113,162,4,142,1936 
DATA 174,2,1698,8,148,173,2,24,32,240, 
255,32 ,253,12,173,171,1843 

DATA 2,133,114,173,172,2,133,115,32, 
223,13,24,98,169,8,133,1334 

DATA 116,169,96,133,117,32,124,9,201, 
83,248,598,281,13,208,245,2843 

DATA 24,165,114,189,32,133,114,144,2, 
238,115,168,31,177,116,1453,1807 

DATA 114,136,16,249,24,165,118,105, 
32,133,116,144,2,238,117,197,18986 
DATA 124,165,117,229,1825,144,1,96,32, 
223,13,169,17,32,210,255,1932 

DATA 32,223,13,76,34,19,160,5,177, 
116,153,59,3,200,192,21,1499 

DATA 144,246,169,83,141,81,3,169,48, 
141,62,3,169,39,141,63,1701 

DATA 3,169,8,32,177,255,1869,111,382, 
147,235,160,0,169,61,3,1767 

DATA 32,168,255,2008,192,19,144,245, 
32,174 ,255,32,508,9,76,85,1968 

DATA 15,160,31,185,237,17,145,124, 
136,16,248,24,163,124,185,32,1764 
DATA 133,124,144,2,230,125,96,189,8, 
162,68,133,116,134,117,169,1934 

DATA 0,168,145,116,200,208,231,2308, 
117,168,117,224 ,96,144 ‚243,96 ‚2321 
DATA 85,49,32,50,32,48,32,49,56,32,6, 
85,50,32,50,32,714 

DATA 48,32,49,56,32,0,66,453,80,32,50, 
32,48,0,83,88,733 

DATA 85,69,82,83,81,71,82,13,13,13,6, 
35,35,35,35,35,773 

DATA 33,35,33,39,33,33,35,39,35,35. 
35,35,35,33,35,33,360 

DATA 35,35,35,35,35,35,13,6,35,18,18, 
3,33,13,6,33,378 

DATA 6,67,32,65,32,84,32,83,32,79,32, 
82,32,84,6,35,783 

DATA 13,6,935,32,32,66,89,32,78,46,7?, 
63,79,78,32,38,797 

DATA 32,68,46,87,69,73,78,69,67,75, 
32 ,32,35,13,6,35,817 

DATA 18,10,5,35,13,6,35,35,39,35,35, 
35,33,35,33,35,429 


Basic-Lader 
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VERSION 7.8 
13.8.1985 


„ran... 


HH 
1ZEROPAUE -VARIABLEN 
' 


„BA 
TEXT .D5 


E 


DATA 35,35,35,35,35,35,35,35,35,35, 
33,33,39,35,35,35,368 

DATA 33,13,13,13,32,32,76,69,71,69, 
78,32,83,73,69,32,790 

DATA 68,73,69,32,82,73,67,72,84,73, 
?1,69,32,68,73,83,1989 

DATA 73,69,84,84,69,32,69,73,78,13, 
13,7,853,78,68,32,923 

DATA 68,82 ,85,693,67,75,69,78,32,83, 
73,69,32,18,32,82,1014 

DATA 69,84,985,82,78,32,146,8,13,13, 
18,66,73,84,84,869,988 

DATA 32,087,65,69,72,76,69,78,32,83, 
73,89,32,538,13,13,921 

DATA 9,49,46,32,698,73,02,69,67,04,79, 
82,89,32,65,78,1804 

DATA 98,69,73,71,69,78,13,9,50,48,32, 
68,73,82,69,67,959 

DATA 84,79,82,89,32,63,79,82,604,73, 
69,82,69,78,13,9,1087 

DATA S1,46,32,88,82,79,71,92,65,77, 
77,32,66,69,69,78,1056 

DATA 68,69,78,13,0,6,42,42,42,42,32, 
32 ,687,32,65,32,862 

DATA 84,32,83,32,79,32,02,32,84,32, 
32,92 ,42,42,92,13,785 

DATA 13,18,6,66,786,75,6,78,85,77,69, 
9,84,89,88,9,828 

DATA 13,8,129,18,32,78,31,92,146,159, 
32,32,453,862,32,88,933 

DATA 83,70,70,69,82,32,32,32,32,32, 
129,18,32,70,55,32,872 

DATA 146,159,32,32,45,62,32,68,73,93, 
75,69,04,84,69,13,1126 

DATA 129,18,32,78,53,32,146,159,32, 
32,80,83,78,70,69,82,1159 

DATA 32,45,62,32,32,32,2,129,18,2,95, 
32,1496,139,32,32,992 

DATA 77,69,78,85,89,9,92,59,03,84,76, 
73,67,72,69,32,1085 

DATA 88,82,79,71,92,65,77,77,69,32, 
73,77,32,88,85,78,1131 

DATA 70,69,62,13,32,32,32,32,83,67, 
82,65,84,67,72,32,914 

DATA 58,32,129,18,32,83,32,146,159, 
32,32,43,43,32,32,83,998 

DATA 79,78,83,84,32,82,69,94,85,82, 
78,0,0,8,131,18,983 

DATA 1,95,45,45,95,453,93,43,45,43,45, 
45,945,45,95,95,8678 

DATA 43,0,0,8,0,0,08,0,0,8,0,0,8,8,8, 
8,45 


IVARIABLEN 


EM 
FIRSTFIL 
SECTOR 
DIRMEML 
DIRMEHH 
vsave 
XSAvE 
COUNT 

‚ 


SsTarus ISTATUSREGISTER 
BUFFER 1ZWISCHENSPEICHER 
OLDDIR IBUFFER-DEREICHE 
DIRBUR iFUER DIRECTORY 

' 

BORDER FRAHMENFARBE 
BKORND IMINTERGRUND 


DIRENDL .Ds 
DIRENDH .DE 
use .DS 
ouD .DS 
PREV .Bs 
NEXT .DS5 
bur .DS 


DNNann-n 
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Ba MOMESSMAPITERWERLD. 2 M 


‚DE we206 ISCHAEIDFARDE INC TEXTri 
BNE TxTri 
i Bee TXTEND RTS 
IBETRIEBSSYSTEMROUTINEN ’ 
’ [KLEE TTS TE IT 
RESET „rce2 ILDESCHT BILDSCHIRM UND SETZT 
' FARBRAM AUF SCHREIBFARBE 
ACPTR srFAS ‚ 
CHKIN urFCa ELRSCR LDA #93 
CHKoUT SFFcCH JSR CHRDUT 
CHRIN sFFCF LDx s 
CHROUT “FFD2 La uı 
ciour srras STA spane,x 
CLOSE srercı STIA sovoR,x 
TLRCHN “rFCC STAa SsDABR,x 
OETIN rrE4 5TA ®DBB2,x 
LISTEN „ers Inx 
OPEN srrce DBNE CiLRsSIı 
PLOT urFFE RTS 
SsEconD rm, ’ 
SETLFS srrna [KLEIZ EEE TI 
SETNAM “FFRD IHAEUFIG BENUTZTE AUSGABEN 
TALK “rFBa ’ 
TKSA ru. RETURN LDA nsepn 
UNLSN “FFAE .Br 
UNTLK “FFAB L) 
' SPACE 
1 
“soBi ’ 

ı | SPACES 
[) 
[E22 207777777777 7255 
i SYS2844 AN PROGRAMNANFANG 
’ ' 

“BY =0D n00 saA “a0 een 
ILIEST DIRECTORY EIN UND GIBT 
«BY ®9E '128841* IES AUF BILDSCHIRM AUS INCL. 
KFEHLERBEHANDLUNG 
’ 
‚BYrBe2B08 DIRESTORY 
ELRSER 
.o 
STATUS 
“os 
LISTEN 
usor 
SECOND 
PIRT) 
Cıour 
UNLS" 
STAaTus 
DIREC& 
.o 
LISTEN 
“ro 
SECOND 
. 
ciour 
UNLSN 
STATUS 
DIRECH 
DIRECH 


' 
te 
START 
LDx weFr 
TxS 
LDA ws 
STA BORDER 
STA BKGRAND 
LDA "I 
STa coLor 
JER CLRSCR 
LDY eH,STARTTEXT 
LDA @L,STARTTEXT 
JSER TEXTOUT 
STARTI JSER GETIN 
cCmP "non 
BNE STARTI 


"M,TEXTI 
m. TEXTI 
TEXTOUT 


SESRENASTSNSRBSAHMESEN 


GETIN "0 
u,’ TALK 
STARTI nes. 
DIRECTORY TRsa 
Starts w'2' 29 ACPTR 
START4 ACPTR 
SorT DIRECS 
STARTE w'3* f 
STARTZ DIRECI AGPTR 
RESET 


' ACPTR 
' supcH 
' SPACE 
ASS E E nz DiREc2 ALPTR 
TEXTOUT HTEXTANFANG IN (TEXTI DIRECS 
NTEXTLAENGE MAX &4K SHrouT 
HTEXTENDE MIT EOT (8 DIRECZ 
FCODE € 13 = ANZAML SPACES DIRECH ACPTR 
1CODE 21 = WEISS (FUER 95} ACPTR 
sTarus 
STY TEXT+L DIRECS 
STA TEXT RETURN 
LDr uses “200 
LDa ITEXTI,Y “.o2 
BEB TXTEND DIRECH 
CMmP wsaD DIRECA “280 
2cs TxT2 ..oi 
Tax DIRECA 
DEx DIRECI 
JER SPACES 
cmP w2ı UNTLK 
TXT3 „u 
“3 LISTEN 
CHROUT w.es 
SseconD 
TxT1ı UNLSN 
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Bu MONMECSNFITERWERL.E. 204 


RUN ist das 
unabhängige COMMODORE- 
Computermagazin. 

Monat für Monat erfahren Sie 
hier Neues und Interessantes, 
finden Sie viele Listings, 

Tips & Tricks aus der Welt des 
COMMODORE. 

Bleiben Sie am Ball und halten 
Sie Ihr COMMODORE- 

Wissen stets auf dem laufenden. 
Mit Ihrem persönlichen 
Abonnement von RUN! 


EIN 


== PUBLIKATIONEN 


Eine Erste Adresse für die Computerwelt. 
Friedrichstraße 31, D-8000 München 40 


BE 


DiRecs JER FEHLER @VEIl 28 or =D JSR REVLINE 
By2C 7& JER TAST BIEA AS 7a LIA #088 
JIMP START @9Ea CH 72 CHP #DIRENDL 
’ BPEB AS >73 LDA #USsE»r Li 
HHHHHHHHHHHHHHHH BIEA ES 73 SEC #DIRENDH 
ILIEST FEHLERKANAL DER FLOPPY BIEC 90 85 BCC MENUZ. 1 
IWENN FEHLER, AUSGEBEN UND BIKE AF 9 LDa sıas 
KBILDSCHIRMRAHMEN AUF ROT ByFa 28 n2 FF JSR CHROUT 
’ B9FJ 20 31 8D MENU2,1 JER SELFIL 
FEHLER LDA 008 Bra 28 Ei JISR PRDIR 
JER TALK BYF? ZB Dr 0D ISR AEVLINE 
LDa esar BIFC AC Co 99 IMP MENU 
JSR TKsa BPPF Cc9 87 MENU EnP W135 TASTE Fs 
JSR ACPTR BABı Da or EHE MENU 
cHP mr @AB3 28 or 9D JER REVLINE 
PHP Bnd6 28 “A DE JER INSFIL 
BCC FEHLER2 BABY 28 Ei @C JSR PRDIR 
PHA BASC 29 DF =D JSR REVLINE 
ISR RETURN BABF ac ca 0r InP MENU 
JSR RETURN BAlI2 c9 um nenua EmP W136 ITASTE F7 
LDA wen2 BAIa De 3 BNE MENUS 
STa sne2e BAIA °C C2 BE JMP SORTEND 
PLA BALIP C9 13 nENUS cmPr 19 ICURSOR HOME 
IR CHROUT BAIB 29 06 BNE MENU 
FEHLERZ ISR ACPTR @AID 28 ıF en JSR REVLINE 
CHP wen BAZe ac 92 a9 IMP SORTI 
BEG FEHLERI BaA2I c9 ac MENUS ENP w’L' 
PLP 823 DB 21 BNE mEmu?7 
up BAR? 28 DF on JSR AEVLINE 
BCC FERLER2 BAZA AB 82 Ldr w2 
JER CHRouT BAZC Bi 74 LDA IUSsE),Y 
JIMP FEHLER? BAZE 49 48 EOR #48 
FEHLERI ISR UNTLK wa3s 91 74 STAa tUsE),Y 
LDA nos Walz As 74 LDA #use 
STa ers Bas 83 76 STA #0L9 
rLp WAIs AS 73 LDA usE+1 
BCS FEHLER sale 85 77 STA #üLDd»L 
ATS BAIA 28 73 ıc JSR ONKLINE 
r sa3D a9 9ı LDA W145 
FEHLER ISR rast BAIF 28 D2 FF JER CHROUT 
ImP TASTEI BA42 28 DF ou JER REVLINE 
ı BA4S 4C Ca 89 "ENUS JMP MENU 
HH BA CY SF MENU7 CMP ss TASTE LINKSPFEIL 
i TASTATURABFRAGE BAsA 09 83 DNE MENUF 
INOTAUSSTIEG IST LINKSPFEIL BAsc ac 19 08 IMmP START 
} BAAF CV 94 MENUF ENP si4a ITASTE Ins 
Tast JER GETIN gası Du F2 BNE MENU 
BEO TAst BAsI 28 or =0 JSR REVLINE 
TASTRTS RTs BASs 22 22 or JSR INSLIiNE 
' 0A3F ZU 6A BE JISR INSFIL 
TASTE JER TAST BASC 22 Eı oc JSR PRDIR 
cur we BASF 29 DF 8D JER REVLINE 


TASTEI MENU 


TASTEI 
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ER SEHETT NEST ER SRLD 


Ina 02 BAsS 28 74 28 TITEL JSR CLRSCH 
ISR CLOSE DASS AB ıı LOY WM,TITELTEXT 
IMP START DASA AP 26 LDA #L,TITELTEXT 
’ BAsc ac 28 08 IMmP TEXTOUT 
’ BA6F ’ 
L JAsF ee 
I# HAUPTROUTINE VON CATSORT # BASF I0IBT ATBEITSMENUE Aus 
HH BAar L 
0 DASF AB 00 Wrext Lör us 
20 SsoRT JSR TITEL BA71 A2 17 LDx #23 
28 ISR ERASERAM 2A73 ı8 eLc 
ze JSR GETDIR BA7A 20 ma FF JER PLOT 
20 JER PACK BA77 AB ıı LDr HM, TWOoRK 
2992 a7 08 sorTi LDA ®L,OLDDIR BA7® AP SI LDA "L,TWOoRK 
2790 80 Au STA FIRSTFIL 8A73 ac za 20 ImP rExTour 
DIAB AP SB LDA #H,0L.DDıR BATE 1) 
BvAZ ED AP 92 STA FIRSTFIL+1 BATE D) 
BYAS 28 EI ac JSR PRDIR Baru A EEE 
BIAB 20 HE BA JISR WIEXT BA7E IHOLT DIRECTORY IN DEN BUFFER 
BIAB AD AS 82 INMENU LDA FIRSTFIL BA7E ' 
BVYAE 83 74 STA use BA7E 28 02 @B OKTDIR JER DPENFILE 
SIEB AD AP 92 LDA FIRSTFIL»+L GAB: 25 87 88 GETDIR2 JISR READCMD 
B9B3 85 73 STA #USE+1 BAB4 AP 31 LDA er 
2933 ı8 eLc BABs 20 as FF JSR cıour 
2rB6 A2 94 LDx wa BABY 20 ac Fr JER UNLSN 
orns au 28 LoY us BABC 28 22 0» ISR FEMER 
BIBA 20 FB FF JSR pLor BABF AP 09 LDA "L,oLDDIR 
B90D 29 Dr 80 JSR REVLINE BAF1 83 76 STa scLD 
89c3 f BA9S AP 2a LDA sH,OLoDıR 
B9CH 28 7C 87 MENU JSR TASTE Bars 83 77 STA soLd*ı 
B9C1 Fe rm 219 MENU BAP7 A2 92 GETDIRS LDx »2 
B9C3 c» 91 EnP n143 ICURSOR up BA9F 20 Ca FF ISR CHKIN 
9%C7 28 83 BNE MEnui BAIT AB 08 Lor ns 
29C9 AC ED on ImP curup BAY 20 CF FR GETDIR4 JER CHRIN 
BIC Cr ıı MENUL EnP 17 ICURSOR DOaWum BAAı 98 83 BCC GETDIRS 
SXcE 09 81 BNE MENU2 BAAIZ AC 32 09 JIMP FEHLER 
SYDB ac 23 DE JIMP CURDOWN BAA& Pı 76 OETDIRS STA IOLdı,Yr 
BF01 c9 36 MENUZ cmP #134 ıTASTE F3 BARB ca ıny 
8903 De 23 BNE MENUS BAR? 28 FI BNE OETDIR“ 
8907 a9 08 LDA #L,OLDDIR BAAB 20 CC FF JER CLRCHN 
B907 cH 72 EMP #DIRENDL BAAE BI 76 LDA (oLDı,Y 
BIDB AP no LDA WH,OLDDIR Sana Fa ı2 BES OKTDEND 
9900 &3 773 SBC #DIRENDH SABZ 28 27 08 JSR READCHD 
SIOF 28 DF BCS MENU BABS AB 9ı LDy wi 


“oLD),Y 
HEXASC 
UNLSN 
“oLDdrı 
GETDIRI 
OETDEND En} 
GETDIR? oLd),Y 
GETDIR& 


f 
“2. EI III nn nn int 
IOEFFNET KANAL 2 ZUR FLOPPpY 
GETDIR? 1 
et DPENFLE Loae2 
Lox 8 
rar 
BEN | ISR SETLFS 
ADIRENDL LDA m’ n" 
soLd*L DIR 
.o LDA 
#DIRENDH en 
OeTDLRB "2 LorY 
<Lose 
‚ 
' 
EIS I I EI I SE Sn 
HSCHNEIBT DIRECTORY AUF DISKETTE 
IZURYCK 
; ISETZT BUFFERPOINTER AUF 9 
PUTDIR LbA WL,OLDDIR v 
ren seraure LDA #8 
LDA #H,OLDDIR ISR LISTEN 
STA soLo+ı LDA user 
JSR DIRLINK JSR SECOND 
LDA @L,OLDDIR LRYERB 
Era leo SETBUFPL  LDA POINTEMD,Y 
re BES SETNUFEND 
ale JaR Ciour 
n: “  1NY 
SECTOR BNE SETBUFPL 
pad SETBUFEND IMP UNLSN 
SETBUFP ’ 
Purdine PP} een 
le iGIBT Ui 2 © 18" AUS 
Pr) ' 
ER By READCHD LDa #8 
re LISTEN 
PUTDIR2 tere 
FEHLER SECOND 
PUTDIRZ -. 
PUTDIRI BEAT 
CLRCHN REAUCEND 
WRITECHD an 
SECTOR 
er READCI 
Bean READCEND 
FEHLER 4 
“i esiehdgyaegtesehrickte ir 
se IGIBT U2 28 ı8' 
ner j 
pen ER WRITECHD LDA us 
JSR LISTEN 
LDA "ser 
ISR SECOND 
ı LDrY we 
‘ WRITECI LDA WRITEM,Y 
IBINDET DIRECTORY NEU UND SETZT BER ORONCENO 
IDIE RICMTIGEN KOPPELADRESSEN BLU ERNT 
ı 
DIRLINK Loa wa Bu EHRETEUE 
STA SECTOR . 
DIRLI Lor ne een 
ste IWANDELT HEXZAHL IN ASCIT-ZEICHEN 


STA toLD),Y ö ; 
INnY WEXASC LDX s’3* 


LDA SECTOR sec 

STA tOLDI,Y HEXASCI sec ıo 
ra BCC HEXASCQ 
cıLc INx 

ADC meır BCS MEXASCI 
rar ADc ws +1 
SCS DIRLI PHA 

LoA 8 TXA 

STA t0LdI,Y HEXASCI 
iny 

sra (oLdı,Yr HEXASCS 

IMP DIRL2 


LDA SECTOR ’ 
cLc et 


abc mı ISCHNELLE AUSGABEROUTINE 
cnr nr HERSETZT CHnour 

BCC DIALe ’ 

SBc #17 PrROUT SsTY #rSsave 
STA SEcTonR LDY »03 

Inc #0L.D+1 AND walr 
LDA #2DIRENDL Sta t8Dtlı,Y 
cmr soLd Inc #03 

LDA WDIRENDH LDr #rSave 
SPC #0LD+1 ars 
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BUHORELSENAITERHOR.D. OH 


.- 


SCI 90 a8 83 
BCIA 29 SE .c 
SCcIF 28 se oc 
OC44 290 a8 07 


Sc=3 20 D2 FF 


ScCSs 20 “8 83 


or 
0683 4C a oc 
Fo 


DC7L 90 a0 m 


OC7» 29 95 28 


2C9ı 20 v8 oa 


OC9A 28 98 oe 
2C9D 28 ac oc 
SCA2 29 95 08 


DCA9 28 Fo 28 


@C2ı 22 90 09 
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ee 
IMANDELT EINE HEXZAHL IN EINE 
WDEZIMALZAHL UM UND GIBT SIE 
AUF DEM BILDSCHIRM aus 
L 
HEXDEZ LDA se 
STAa um 
S5STa mumz 
5TA inums 
LIx asia 
NWUNLDOP sen 
ASL HEXNUML 
ROL HEXNUMH 
LDA uns 
ADC uns 
SsTra amumı 
LDA num2 
ADC #nUum2 
STA enum2 
LDA num 
ADC num 
5rÄa “numi 
cud 
Dex 
BNE NUMLOCE 


HEXOUT LDA wm 
ORA usIa 
STA BUFFER,X 
LDA enumz 
JER LEFTN 
LDA #nuns 
JSR LEFTN 
Lox wuau 

NEXDUTL LDA BurreR,x 
cCHP wein 
BNE HEXOUT2 


cPxX us 
BCC HExourI 
HEXOUT2 JER cHRoUr 


EPX nu 
BCS OUTRTS 
LDA BUFFER,x 
BNE HEXOUT2 


LEFTI AND seFro 


Inausseereneneer 
IGIBT EINE ZEILE DES DIRECTORY 
1AUF DEM BILDSCHIRM Aus 
' 
ONELINE 
LA os 
STA s03 
Lox ws 
JSR SPACES 
LDY #18 
LDA (OLDdI,Y 
STA HEXNUML 
inY 
LDA toL.mı,Y 


ONELLı JIER HEXDEZ 


oneL2 LDA (oLDdı,Y 


REDUESENESTERNOR.D. SSH 


FF 


LDA 
PHA 

AND wer 

Tax 

Dex 

LDA TYPTABi,x 

JSR PROUT 

LIA TYPTaB2,x 

ISR PROUT 

LDA TrPrans,x 

JER PROUT 

PLA 

AND weis 

BES OnELy 

LDA wm’ >* 

JSR PROUT 
ONELI Lox a2 

ISR SPACES 

IMP_ RETURN 


‘“oLDdı,Y 


EEE ELaL LEE nn 
FDRUCKT EINEN BILDSCHIRM Aus 
IFIRSTFIL ENTMAELT DIE ADRESSE 
IDES ERSTEN FILES AUF DEM SCHIRM 
' 
PRDIR sec 

IsR pLor 

STX XxSAVE 

STY YSAvE 


LDA FIRSTFIL+L 

STA #0LD*1 
PRDIRD L2a "ia 

STA Count 
PRDIR: JSR ONfLINE 

DEE Count 

BEO PrDIR“ 

LDA #0LD 

CHP »DIRENDL 

LDA soL+1 

SPC #DIRENDH 

BCS PRDIRI 
“OLD 


„20 


Sra #0LD 

BCC PROIR2 

INC soLD+1 
ProIR2 JMP PRDIRI 
PRDIRI LDx 439 


SPACES 


xSAVE 
LDY rsave 
mor 


HH 
HLOESCHT EINEN FILEEINTRAG 
IUSE IST ADRESSE DES ZU LOESCHENDEN 
IFILES IM SPEICHER, BUF IST BUFFER 
USE STEHT ANSCHLIESSEND AU DEM 
ANAECHETEN EINTRAG 
' 
DELFIL Lor msır 
DELFILI LDA (Use),Y 

STA (BUFI,Y 

Der 

BPL DELFILI 

LDA #Bur 

<ıLc 

ADC We2e 

STa snur 

BCC DELFILZ 

ING #BUF+1 
DELFIL2 LDa #usS8 

STA #PREV 

LDA suse+1 

STA MPREV*1 
DELFILI L5A #PREV 

EMP #DIRENDL 

LDA #PREvV*1 

SPC #DIRENDH 

BES DELFILS 

LDa #PREV 

cıLc 

ADC es28 

STA #NEXT 

LDA #PREV+1 

auc es 

STA #NEXT+L 

LövYr #sır 
DELFIL4 LDA INEXTI,Y 


STAa (PREVI,Y cHP ua 
Der BED Cuaups 
BPL DELF!LS LSA wis 
LDA next JER CHaour 
STA #PREV JER REVLINE 
LDA #NEXT+L IMP nemu 
STA PREV*1 Lba use 
on IMP DELFILS » 5TA FIRSTFIL 
DELFILS Löy msır LDA zuse»+1 
Loa u STA PIRSTFIL=1 
DELFILS STAa (PREVI,Y JSR PRDIR 
DEY JMP INNEN 
BPL DELFILS ’ 
sec ASS EI T E T Z G 
LDA #PREV ISETZT ZEILENCURSOR EINE ZEILE 
SEC we20 ITIEFER 
STA #DIRENDL i 
LDA #PREV*1 TURDOUN LDA suse 
SsEBc wa CHP MDIRENDL 
STA #DIRENDM LDA #uSsE»+1 
LDA #DIRENDL SBC #DIRENDH 
CHP USE BCE CuRrDı 
LDA #DIRENDM IMP MENU 
SsBc Use» LDA USE 
BCS DELFIL? ADC mas 
LDA sDinenoL TA "use 
STA ause BCC cuaD2 
LDA #DIRENDH INC #uSE+1 
STA #USE»+1 JISR REVLINE 
DELFIL? RTS LDA 08 
I cmP «21 
DES N N nn BcS cuaDy 
ENTFERNT BELOESCHTE EINTRAEGE LDA wı? 
AUS DEM DIRECTORY UND SCHIEaTr JaR CHRoUT 
IZUSAnMEN J5R REVLINE 
’ IMP MENU 
PACK L2A wL,OLDDIR eLc 
sta "use LDA FIRSTFIL 
LDA "H,OLDDIR ADC es28 
STA #uSsE+ı STA FIRSTFIL 
LDA m,DIRBUF Bee CuRDs 
sta "Dur INC FIRSTFIL»+L 
LDA wH,DIRBUW JSR PRDIR 
STA #Bur+1 JMP CURD2.i 
Lör 2 
LDA (USEI,Y 
AND Nsar IKLLZLIIIEI EI IE 2 
BNE PAcx2 iFUEGT EINEN FILERINTRAG EIN 
JSR DELFIL sUSE IST DIE ADRESSE, AN DER KIN FILE 
JIMP PACK IRINGEFUEGT WIRD. DIREND WIRD ERMDEHT 
LDA +suse KOBERSTER BUF-INHALT WIRD EINGEFUEGT, 
CMP »DIRENDL USE WIRD NICHT GEAUNDERT. 
LDA suse+1 ‘ 
S5BC #DIRENDH InsriL LDA sL,DIiRBUr 
BIS Packa ENP »sBUur 
LDA zu8sg LDA an, DIRBUrF 
ADE nn20 Ssıc sBUur+1 
STA #USE BCC InSri 
BIC PACKS RTS 
INC sUsE»i LDA “DIRENDL 
JmP PACKI STA #PREY 
LDA L,DIRBUrR ADC ws28 
STa +BUur STA "OTIRENDL 
LDA "H,DIRBUF STA #NEXT 
Sta "Bur+i LDA #*DIRENDM 
RTS STA #PREV+L 


abc 98 
[LEE I U U I I 2 STA #DIRENDM 
IWANDELT AKTUELLE ZEILE IN Sra nExtei 
IREVERSSCHRIFT ODER ZURUECK Ldr Hsır 
’ LDA IPREVI,Y 
REVLINE Loy mas STA INEXTI,Y 
REULI LDA (sol), r 
EoR soo InSFI 
STA (sdl),Y 
ınY wmnev 
ePr nis aNExT 
BCC REVLI “2. 
ARTS “PREV 
1 “neu. 
teren NEXT+L 
ISETZT ZEILENCURSOR EINE ZEILE os 
IMOEHER aPpREVeL 
r 3 “PREV 
CURUP LDA #USE+1 suse 
CHP HH,oLdHIR #PREV»L 
BNE CURUPI susE+L 
LDa +use InSF2 
CHP ML,OLODIR 
BNE CURUPL 
I/MP NENU 
CURUPi Sec 
LDA suse 
Ssıc “nz. 
STA +USE 
BC3 cuRUuP2 
DES ause+i 
ISR REVLINE 
LDA =06 


»Bur 
"20 
*BuF 
INSF4 
“Bur+ı 
ir 
tBUFI,Y 
use), Y 


BamsNaua Au 


3 


INSFS 
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Bu DOHMEISNPLTFRUSLE SCH 


SEC: 08 ars arss 648 RTS 


auc2 ı @r&9 20 DF 90 APPENDa JER REVLINE 
wec2 Bere Srac Ar ıl Loa #17 

gEc2 BABSCHLUSS MIT ZURUECKSCHREIBEN ÖF4E ZU 22 Fr JSR cHRouT 
Bec2 IDES GEAENDERTEN DIRECTORY SF71 29 OF 00 IJSR REVLINE 
eec2 ı er7a ac 36 OF IMP CLABUFI 
sec? 28 D8 SE SORTEND JSR PRBUr er>7 ' 

gech 28 03 BCS SOATENDI Br77 ES SEITEN Nr 

WEc7 29 28 or JER CLABUF 8F77 ILOESCHEN EINES FILES 
BECA 20 EI DA SORTENDI JSR PUTDIR er?7 ı 

gEech sc 18 23 INP STarr 0F77 au om SCRATEH Lor ns 

sense ’ 2F79 B1 74 SCRATCHI L5A tuse),Y 
gEIs [KA Z IS EI EErT OF7B 99 JB 33 $TA BUFFER-S,Y 
LIER IGIBT RESTLICHE FILEEINTRAEGE IM er7E co iny 

Dr tBUFFER Aus Sr’F co ıs cPr n2ı 

sense : orsı 98 F& BCE SCRATCHL 
BEDS AP ma PREUF LöA sL,DIRBUF BFaI AP S3 Lda wıs' 

SEDZ 88 7 STa #oLD arss 85 30 81 Sta BUFFER-3 
OED# c3 7C CHP +BUr erBs A9 38 Da w'a* 

BEDe AY 60 LDA "H,DIRBUF BFSA 9D 2E #3 STA BUFFER-2 
@cDs 83 77 STAa #0LD+t aFSD A9 JA LA m':* 

DEDA ES 7D SEC #Bur+t BFeF 80 IF 03 sta BUFFER-i 
BEDC 98 81 BCC PRaurı er92 A908 Ana 08 

BEIDE so RTS | ersa zu Bi Fr JIER LISTEN 
WEDF 28 43 CA PRBUFL JER TITEL BFI7 AI 0R „OA naar 

gEE2 Am 04 Lor 04 8699 28 91 FF ISR SECOND 
BEEs a2 ı7 LDx #23 BFsC am 08 Ldr we 

BEEs ı8 eLc BFIE 39 ID 83 SCRATCHZ LDA BUFFER-3,Y 
SEE? 20 Fo mr JSR PLor SFAL 28 AB FF ISR Cisur 
BEEA Aa 0m LDr "o BFAs c9 inr 

BEEC 39 A7 11 PRBUFZ LDA TSCRATEH,rY BrAS co 15 EPr 019 

euer Fo 06 BEG PREUFI BFA7 98 F3 BCC SCRATCH2 
sErı 28 22 Pr JER CHROUT @FAY 29 AE FF JSR UNLSN 
gera c9 InY BFAC 29 22 89 J5R FEHLER 
SErS Da Fs BNE PRBUF2 BFAF AC SS or ImP APPENDZ 
BEF7 AS 72 PraUFS LDA #DiRENDL era2 ı 

BEFY 90 AB 32 STA JIRMENL ara? ethleheiebetstchehiehst 

BEFC As 72 LDA #0IRENDM wrs2 IFUEGT EINEN STRICH INS DIRECTORY EIN 
BEFE aD Ac 02 STA DIRMENH er32 ' 

arsı 28 3EC BrB2 AG ır INSLINE Loy #sır 

erS2 43 = LBA aBUr BrB4 89 ED ii INSLI LDA INSTExT,Y 
2ros Er 28 SEc neo arB7 Pı 7C STA (Burı,Y 
er06 53 72 STA #DIRENDL ara9 m Der 

OFDe AS 7D LDA #Bur+1 gFBA ı0 Fo BPL INSLI 
BFOA £9 30 sac us erac ı8 eLe 

SFC 83 73 STA #DIRENDM SFBD AS 7c LDA #Bur 

eroe az a8 LDx ua BFBF 59 20 ADC us20 
SFI1B SE AR 92 STX XSAvE erci 83 7C STA #Bur 

BFII AB 08 LöEr as BFCI 98 82 BCC InSL2 
SrFiS SC aD 02 STY YSAavE ercy Es 79 Inc #Bur»ı 
arıa ı8 <Lc erc? a8 iNSL2 ars 

ori? 20 Fo FF JSR PLor ercs s 

BFIC 28 FD oc JIR Proine Barca EEE S SIE en 

BSFIF AD AR 02 LiA DIRMEHL arca ILDESCHT BUFRFERBEREICH 
SF22 93 72 5TA #DIRENDL ercs i 

er24 an ac 2 LDA DIRMEm4 BFCB a9 20 ERASERAM LDA @L,OLDDIR 
BF27 85 72 STA #DIRENDH BFCA A2 90 L2x #M,OLDDIR 
OF29 20 Dr ®0 ISR REVLINE BFCC 05 74 STA USE 

BF2c 18 eıc BFCE 84 7 STX USE+1 
@r7ZD 58 RTs SFDe AP oo LDA #8 

Br2E , erD2 as Tay 

ar2E testen Brus vı 74 ERA1 STA (USE)I,Y 
srie IMAENGT DAS FILE AN DAS DIRECTORY BFDS c8 InY 

BFZE tAN ODER LoEscHr £5 BFDA De FB BNE ERAL 
ar2E ı eros Es 75 Inc USE+1 
ar2E ar 00 CLRZUF LDA #L,DIRBUF OFDA Aa 75 LDx Usg+L 
Srig 83 74 STa »usE SFC ES 68 EPX MH,DIRBUF 
OF32 a7 #8 LDA “H,DIRBUF BFDE 9 r3 BCe ERA1 

arı4 03 75 STAa wusE»1 run 60 ARTS 

ar3a 28 ?7C 89  CLRBUFi JSR TASTE Brei ’ 

BrI3P c9 ©; Cup w'5* erEi ’ 

BFIB Fe JA BEG SCRATCH Srgi 23 31 28 AREADM «BY "UI 28 10 * oo 
BFID c9 m EnP ns2D BREA 32 20 20 

SFIF De F3 BNE CLRBUFL SrE7 28 3ı 30 

DrFsi ı8 cıLc DFEA 22 08 

ers2 as 72 LDA #DIRENDL SFEC 933 32 28 WRITEM .BY 'U2 28 10 ’ 00 
gras 49 28 abc “20 BFEF 22 20 20 

@ra6 83 72 STA #DIRENDL err2 28 31 38 

Br&B 98 02 BCC APPEND erFS 20 28 

ersa Es 72 INC #DIRENDH DrF? 42 2D 8 POINTCHD «Br 'B-P 2 0° oma 
grac i BFFA 28 32 20 

Brac Vetter BFFD 20 20 

arac FANHAENGEN EINES FILES wer ' 

Pe 1 BrPR 33 38 53 TYPrası ‚Br 'SPpu' 
BFaCc AB IF APPEND Ldr wsır 1962 43 32 I TYPTAB2 ‚BY 'ERS* 
BF4E Bi 74 APPEND: L3A tusE),Y isses Sı #47 =2 TYPTABS BY 'SOR' 
Srıs 91 ?2 STA (DIRENDLI,Y ı008 ' 

sr=2 88 DEr 10080 STARTTEXT 

SFSI 18 FF BPL APPENDI se00 90 2D aD “BY S0D 00 son 
arıs ı8 APPEND2 eLc sO0B 86 ‚Bra 

arsa as 7a LDA suseE ıiBac 23 23 23 BE ELLLLITETEITIIIETTTT 
erss 47 20 ADC us28 ıser 23 23 23 

BFSA 33 74 STA «use ıwi2 23 27 23 

Br=c 99 82 BC APPENDS 1913 23 23 25 

Brst 6 75 Inc user) " 1918 23 23 25 

BRD CH 7C APPENDI cap «BUr isıB 253 23 23 

Brs2 As 73 LbA ausE+1 isıE 23 

Brö4 E3 78 SIC @BUr+1 isıF 23 23 23 ».BY 'Nmannnnn! Sun 
erss 90 01 BCC APPEND4 1022 23 23 25 
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i029 06 ‚BY & i138 28 28 
’w 18 193 '0 sed 


s'ctATSOoRrT' 


son son »si2 


19837 20 «er 20 1143 B6 42 4c “Br 6 'BLK’ 6 'NAME' 9 "TYP" 
iB3c 32 29 54 1146 4B 26 4£ 

ıiBIF 86 23 8D ‚BY a 'w* son 1149 al aD «3 

1842 34 ‚BY & i14cC 89 Sa 39 

1943 23 28 28 «Br '# BY N.MANN I D.WEINECK @* son | F14F SB 

1846 42 29 28 1138 29 20 oe -BY 9 se0 8 

1849 4E ZE aD 3183 ’ 

i8sC 41 48 “€ 1133 8ı 12 28 TyoRK “BY Ss5l 8ı2 * FJ 

ID4F 28 26 28 196 46 II 28 

1832 44 2E 37 1159 92 PF 28 “BY 892 SPF * => PUFFER * 
1843 43 49 sg 119€ 28 20 SE 

19858 43 43 #8 ilsF 22 Se 53 

10833 28 28 23 1142 #6 #8 #3 

10sSe 90 1169 932 28 28 

ı10sF 06 ‚Br & ıi68 28 

1868 23 BA GA “Br 'm' 18 19 3 'W' 88D 1169 22 20 0i .BY * *' s81 Si2 * F7 * 092 wer 
1863 83 23 38 1ldC 12 20 #6 

1966 96 «Br 6 klsF 37 28 92 

1867 23 22 23 BE NZELTTTITTIITTTTOTTeTE 1172 9F 

196A 21 23 22 1173 28 28 20 «BY * => DISKETTE' ©2D 
iB6D 23 23 23 1176 SE 29 44 

1870 23 23 23 1179 49 52 48 

1973 23 23 23 117C 45 34 54 

1874 23 23 23 ıi7F as 0D 

1879 23 181 01 12 28 „BY 881 8i2 ' P3 * 

ıB7TA 253 25 23 “Dr 'Manmaaan" SED =D SED 1184 46 35 28 

1870 23 23 27 1187 92 IF 28 “BY SP#2 SPF ' PUFFER -)> * 
1888 23 23 09 i10A 20 = En 

1903 9D 00 1190 46 46 as 

1083 29 28 ac ‚BY * LEGEN SIE DIE! 1198 32 29 2D 

1989 43 47 43 4193 IE 20 28 

1888 sE 29 53 1196 22 

1008 s# 43 29 1197 #2 81 ı2 +Br 2 SB 812 2 8SF 020 sy2 
1091 4a 49 45 i19A 02 SF 20 

1994 28 32 49 «BY ' RICHTIGE DISKETTE EIN" sen son | }19D 92 

1897 41 40 34 119E 9F 20 28 «BY 89F ' MENUE' ss 
109A 49 47 a3 11A1 4D 45 48 

1070 29 44 49 11A4 35 45 08 

IDAB SI 48 45 11A7 N 

18A3 3a 5a #3 11A? 52 43 53 TSCRATCH „BY ’RESTLICHE PROGRAMME * 
1DAs 28 43 49 11Aa 34 ac 49 

1849 4E 20 80 11AD 43 48 43 

IBAC 87 =5 4£ .BY 7 *UND DRUECKEN SIE * sine 2e 39 32 

iBAr 44 298 44 123 #F #7 52 

1882 32 53 43 iiBs 41 4D 4D 

1983 43 48 49 11B9 45 28 

1928 4E 28 3 11BB 4# 4D 28 „BY "IM PUFFER' ED * ’ 
022 49 49 29 i12E 30 33 a6 

ISBE 12 28 32 -BY 812 ' RETURN * 2 5 sicı #6 43 32 

18C1 43 34 3= ıic# SD 20 zu 

iSc4 32 a8 20 11C7 28 28 

19C7 97 28 sıc# 33 43 32 «BY 'SCRATCH ı ' 881 sı2 
19C9 #0 88 Text .BY san »00 sıcc 41 3a a3 

18CB ga a2 49 „BY 18 'BITTE WAEHLEN SIE :' ilcF 4B 22 IA 

IOcE 34 34 43 1102 28 8! ı2 

1901 28 37 aı 11D3 28 33 29 “Br ' 8 ' 592 wor 

1904 45 49 ac t1De 92 vr 

1807 43 sE 29 i1DA 2B 2@ 2D „BY * =-- SONST RETURN’ sos 
i0Dda 33 a9 as 1i1DD 25 20 28 

1000 28 = 11E8 33 #F ae 

iSDF 80 80 BY s00 290 siE3 53 Sa 28 

IBE1 99 Jı 2E »BY 9 *1. DIRECTORY ANZEIGEN’ saD 11E6 52 45 54 

i08s 29 aa 49 4169 35 52 «E 

iBE7 32 43 43 ticc 20 

ISEA 4 ar 92 i1ED ‘ 


10ED 29 20 #1 t1ED INSTEXT .BY B 2 883 812 mp1 
sera dE Sa 45 sıre 

iBFI 49 47 a5 sır2 BY. !oannonnsununien . 
ieF6 4E 80 ııFs 

leF8 @9 22 ZE -BrY 9 '2, DIRECTORY SORTIEREN’ e8D ıiıre 

I@FB 20 44 49 sim 

iere 32 43 43 siFE 

iigi 34 «F 32 1281 

11@4 59 20 SI 1282 ‚BYBeEBeeEB ER ER 
1197 4F 22 34 205 

11BA 49 43 92 ı208 

118D 45 «E @D 1286 


1118 89 33 2E «Br 9 '3. PROGRAMM BEENDEN’ #0 8 ı20D F 
1113 28 so s2 ı20D ’ 
1lls #F 47 32 1220 ‚EN 


1119 41 4D 4D 
i1lc 28 42 45 
ı111r 43 se 44 
Il ASSEMBLER REPORT 


i ANZAHL DER FEHLER ’ 

1126 06 TITELTEXT «BY & PROGRAMMZAEHLER * 120D 

1127 za 2a 2a Ar mm CATSORT em ENDADRESSE SPEICHER : 128D 
t 


ENDE DER SYMBOLTAB. 


Assemblerlisting von "CATSORT" 
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Direkt-Datei- 
relativ-richtig 


„Beim Erstellen eines Datenbank- 
Programms störte mich die kom- 
plizierte Programmierung von re- 
lativen Dateien mit dem Commo- 
dore 64,“ schreibt RUN-Autor Tho- 
mas Stüwe. „Aus dieser Not her- 
aus“ hat er 'REL.HELP' geschrie- 


ben. Das Programm bietet einige: 


neue Befehle, die den Umgang 
mit dieser Dateiform erheblich 
vereinfachen. Nicht vereinfachen 
kann es die theoretische Vorar- 
beit, die bei dieser Art von Pro- 
gramm unumgänglich ist. 


Prinzip der relativen 


Datenspeicherung 


Die relative Datei ist eine sehr 
komfortable Methode zur Daten- 
speicherung. Sie wird im Commo- 
dore Handbuch nicht erklärt, da 


Listing 1: Hexdump von REL.HELP 
122 QUD Spezial ı 


Ein Datenbankpro- 
gramm ohne Direktzu- 
grıff ist undenkbar. 


Doch mit relativen 


Dateien umzugehen, 


ist sehr schwer. Mit 
'REL.HELP' geht’s 
leicht 


der C 64 diesen Dateityp nicht un- 
terstützt. 

Um das Prinzip der relativen Da- 
tenspeicherung zu erklären, neh- 
men wir an, eine Datei bestehe aus 
500 Datensätzen, wobei jeder Satz 
eine Länge von 50 Bytes haben 


85 87 CHKSUM 


SOTFR 
A939 58 
D2 FF 
28 
28 


RIBISICHELSNFETRRUSRD SOM 


soll. Arbeitet man mit einer se- 
quentiellen Datei, muß man ent- 
weder die gesamte Datei in den 
Rechner laden oder Datensätze 
überlesen. Das heißt, wenn man 
auf den letzten Datensatz zugrei- 
fen will, muß man vorher die Da- 
tensätze 1-499 überlesen. 

Der Nachteil dieser Dateiform 
liegt auf der Hand: Um Dateien 
vollständig einzulesen, reicht der 
Speicherplatz meist nicht aus. 
Muß man viele Datensätze überle- 


sen, ergibt sich hieraus eine ex- 


trem lange Zugriffszeit. 

Anders bei einer relativen Datei. 
Hier kann sofort auf jeden beliebi- 
gen Datensatz zugegriffen wer- 
den. Man kann also sofort den Da- 
tensatz Nr. 500 einlesen, ohne sich 
um die restlichen Sätze zu küm- 
mern. Es wird kaum Speicherplatz 
verbraucht, da keine unnötigen 
Datensätze eingelesen werden 
müssen. Außerdem kann man auf 
einer Diskette 167 132 Bytes mit 


s8 
198 
118 


128 
138 
149 
159 
168 
178 
188 
198 
288 
218 


228 
238 
2993 
BE 

381 
392 
303 
304 
385 


3086 


307 


388 


3093 


318 


311 


si2 


313 


314 


315 


316 


317 


318 


319 


328 


FOR 1=495298 TO 49918 

READ A:S=S+A:POKE I,A:NEXT 

IF S<>51629 THEN PRINT "FEHLER IN DATA- 
ZEILEN!":END 

i 

REM PROGRAMM DIREKT ABSPEICHERN 


PRINT "[DOLNILEGEN SIE EINE DISKETTE EIN!" 

POKE 198,8:WAIT 193,1 

8 

SYS 49864 :REM ABSPEICHERN 

ı 

PRINT *LDOWNIDAS PROGRAMM KANN JETZT MIT:" 

PRINT "LDOLINILOAD"SCHRS$ (34) 7 "REL.HELP 
1.8"5CHR$ (34)5*",8,1" 

PRINT "LDOWNIGELADEN WERDEN!" 

B 

bi 

DATA 32,253,174,32,138,173,32,247,183,162, 

15,32,201 ,255,169,88,32,218 

DATA 255,169,2,32,218,255,165,28,32,218, 

255,165,21,32,210,255,169,1,32 

DATA 218,255,32,294 ,255,96,32,253,174,32, 

87,226,191,192,2,134,87,132,88 

DATA 32,253,174,32,158,183,142,193,2,162, 

8,169,9,177,87,153,194,2,208 

DATA 294,192,2,298,245,169,44,153,194,2, 

2098,209,153,194,2,136,169,76,153 

DATA 194 ,2,288,208,173,193,2,153,194,2, 

173,192,2,1805,3,141,192,2,169,15 

DATA 162,8,169,15,32,186,255,169,08,32,189, 

255,32,192,255,169,1,162,8,16® 

DATA 2,32,186,255,173,192,2,162,194,168,2, 

32,189,255,32,192,255,96,32 

DATA 253,174,32,987,226,141,192,2,134,87, 

132,88,32,253,174 ,32,158,183,142 

DATA 193,2,32,253,174,32,138,173,32,247, 
183,32,177,193,32,121,193,162 

DATA 1,32,291 ,255,169,255,32,219,255,32, 

204 ,255,169,1,32,195,255,162,15 

DATA 32,198,255,32,228,255,281,13,208,249, 

32,204 ,255,169,15,32,195,255 

DATA 96 ,32,253,174,32,138,173,32,247,183, 

32,253,174,32,987,226,281,8,288 

DATA 3,78,72,178,141,192,2,134,87,132,88, 

32,121,193,162,1,32,201 ,255,168 

DATA 8,177,87,32,219,255,209,204,192,2, 

288 ,245,169,13,32,218,255,32,2084 

DATA 255,96,32,112,193,173,193,2,233,1,72, 

162,1,32,198,255,32,253,174 

DATA 32,139,176,133,73,132,74,32,163,182, 
104 ,32,117,180,168,2,185,97,8 

DATA 145,73,136,16,248,209,32,18,225,145, 

98,288,196,97,208,246,32,284 

DATA 255,968,234,169,112,133,251,169,193, 
133,252,162,8,32,186,255,169,14 

DATA 162,233,168,194,32,189,255,169,251, 
162,199,168,194 ,32 ,216 ,255,96 

DATA 234,64 ,58,82,69,76,46,72,69,76,88,32, 

49,46 ,48 


Listing 2: Basic-Lader von REL.HELP 


DW MOMESSMPLTERWER.D. COM 


relativen Daten belegen. Ein Da- 
tensatz von 50 Bytes kann also 
über 3300mal abgespeichert wer- 
den! 

Wie arbeitet man mit relativen Da- 
teien? 

l. Datei anlegen (auf der Diskette 
wird Platz für die Daten reserviert) 
2. Datei öffnen 

3. Datensatzzeiger positionieren 
(Angabe, welchen Datensatz man 
bearbeiten will) 

4. Datensatz schreiben oder lesen 
5, Datei schließen (wenn die Ar- 
beit mit der Datei beendet ist) 

Auf den ersten Blick sieht das sehr 
einfach aus. Da der C64 aber 
über keine speziellen Dateibe- 
fehle verfügt, muß man sich mit 
chr$()-Anweisungen abquälen. 
Bei der Datei von 500 Datensätzen 
wären folgende Eingaben nötig, 
um die Datei anzulegen, zu öffnen, 
den Datensatz 100 zu lesen und 
die Datei wieder zu schließen: 

l. Datei anlegen: 
open15,8,15:open1,8,2,"test-da- 
tei,1," +chr$(51) 

print # 15,"P" +chr$(2)+chr$(244) 
+chr$(l)+chr$(]) 

print # 1,chr$(255):closel:closel5 
2. Datei öffnen, Datensatzzeiger 
positionieren, Datensatz lesen: 
open15,8,15:open1,8,2,"test-da- 
tei,1,"+chr$(51) 

print # 15,"P" +chr$(2)+chr$(100) 

+ chr$(0)+chr$(1) 

input#1,a$ 

3, Datei schließen: 

closel:closel5 : 
Erschwerend kommt noch hinzu, 
daß mit dem Input-Befehl nur ma- 
ximal 88 Zeichen eingelesen wer- 
den können. Das heißt, daß länge- 
re Datensätze über eine Get- 
Schleife gelesen werden müssen. 
Außerdem darf in dem Datensatz 
kein Komma oder Doppelpunkt 
enthalten sein. 

„REL.HELP* ist ein Programm, 
das mit fünf neuen Befehlen die 
Verwaltung einer relativen Datei 
wesentlich vereinfacht. Sie wer- 
den mit SYS und nachfolgenden 
Parametern aufgerufen: 

l. Anlegen einer relativen Datei: 
SYS 49672,"Name*,L,AN 

L = Länge des Datensatzes 

AN = Anzahl der Datensätze, die 
die Datei enthalten soll 

2. Offnen der relativen Datei: 
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SYS 49563,“"Name“ L 

L = Länge des Datensatzes 
3. Datensatz schreiben: 
SYS 49748,N,A$ 

N = Datensatz-Nummer 
AS = Datensatz 

4, Datensatz lesen: 

SYS 49807,N,A$ 

N = Datensatz-Nummer 
AS = Datensatz in A$ 

5, Schließen der Datei 

SYS 49722 

Beim Lesen des Datensatzes kön- 


RA=49672:R0=49563:RWU=49748:RR=49897:RC=493722 

18 PRINT "ECLR,RVSIDATEI ANLEGENLDOWN]I” 1973 

128 INPUT "DATEINAME"ZNS:IF N$="" THEN 120 2482 

138 INPUT *DATENSATZLAENGE {MIT CHR$(13))"zL:i IF 53928 
L<i1 OR L>255 THEN 138 

149 INPUT "ANZAHL DER DATENSRETZE"ZAN:IF AN<I OR 49344 
AN?167132/L THEN 148 

150 SYS RA,N$,L,ANtIREM ANLEGEN 1273 

168 : 

178 PRINT "TRVS,DOLNIDATEN EINGEBENLDOUN]" 1841 

188 SYS RO,N$,L:REM OPEN 947 

198 FOR I=1 TO AN 875 

288 PRINT "SATZ*"1::INPUT S$:IF LEN <S$I<>L-1 4485 


THEN PRINT "FALSCHE LAENGE !":GOTO 288 
nen maximal 255 beliebige Bytes 218 SYS RU,1,5$:REM WRITE 1081 
eingelesen werden, auch Kommas 228 NEXT 139 
230 SYS RC:REM CLOSE 544 


und Doppelpunkte. 

Wichtig: Zusätzlich wird nach je- 
dem Datensatz ein Return-Zeichen 
(CHR$(13)) geschrieben. Bei Da- 
tensätzen von 50 Bytes Länge muß 
die Datei also mit L = 51 angelegt 
werden. 

Die Befehisfolge (oben ohne neue 
Befehle) verkürzt sich wie folgt: 


248 ı: 
258 PRINT "IRVS,DOWNIDATEN LESENEDOWNI" 1491 
268 SYS RO,N$,L:REM OPEN 9347. 
278 FOR I=1 TO AN 875 
288 SYS RR,1,5$:REM READ 1861 
238 PRINT "SATZ"1"L2SPACES]I"S#$ 1188 
388 NEXT 138 
SYS RC:REM CLOSE 


Listing 3: Demoprogramm zu REL.HELP 


18 :57534394 

28 ı 258 STA #02C02,Y 
se: 285 DEY 

“8 #=5C178 250 LDA #84C 
so | 3B2C2,Y 


SATZZEIGER POSITIONIEREN 


!CHKCOM PRUEFT RUF KOMmMA A !LAENGE NAMENS EREN + 
185 JSR SADBA :FRMNUM AUSDRUCK HOLEN 5 m - ss 3 
| 


118 JSR SB7F?_'GETADR 16-BIT WERT HOLEN 333 LDA #sDF FOPENIS,8,15 
#14=LO-BYTE #15=HI-BYTE 


350 JSR SFFBRA :SETFLS 


115 LDX #58F 15 
128 JSR SFFC9 ;Rüsonne RUF #15 


368 JSR SFFBD :SETHAM 
365 JSR SFFC8 1t0PEN 
'OPENI,8,2 


!SETFLS 


!SETHAM 
418 JSR $FFCO :O0PEN 
415 RIS !RUECKSPRUNG BASIC 


175 JSR SFFCC ICLRCH AUSGABE WIEDER NORMAL 
188 RTS !RUECKSPRUND BASIC 


182 DATEI OEFFNEN Saul. H79r DATEI ANLEGEN 
[7 ı s 

165 JER SREFD CHKCON PRUEFT AUF KOMA 428 JSR SAEFD ICHKCOM PRUEFT AUF Komma 

us ern 20200 ILFENGE NACH 1704 438 STA 50208 'LAENGE NACH 1784 
435 STX 457 

sie IR sFErn KEEanE BREICHERN 448 STy 459 !ADRESSE SPEICHERN 

$B79E :GETBYT HOLT 8-BIT WERT 445 JSR SAEFD ICHKCOM PRUEFT AUF Komma 

220 STX $82Cl ISATZLAENGE NACH 1785 458 JSR 8B79E :GETBYT HOLT 8=BIT WERT 

224 L225 455 STK $02C1 IDATENSATZLAENGE NACH 1785 

225 LDX #so0 468 JSR SREFD :ICHKCOM PRUEFT AUF KO 

238 LDY #508 465 JSR SADBA USDRUCK H 

234 L235 ) 478 JSR SB7F? IDEIADR Ie-BIT Wenn 

225 LA (857).Y TDRTEINANE NACH"T786, „. SCHIEBEN 473 JSR L22S  :OEFFNEN DER DATEI 

; 439 ISRL UF LETZTEN DATENSATZ EREN 

EN aare an 
4 : 

255 BNE L225 435 LDA #SFF le 

260 LDA #8$2C  1,L,CHRSCLI ZUFUEGEN 538 JSR SFFD2 1PRINTRL,CHRSCZSS) 

255 STR $0202,Y 503 JSR SFFCC :CLRCH 


INY 
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s15 JSR SFFC3 
LDX #30F 
JER SFFCE 
530 


:CLOSE 1 


ICHKIN EINGABE AUF #15 
!FEHLERKANAL AUSLESEN 


FEHLER 58 UNTERDRUECKEN 


sFFE4 IGET 
:CHRECISIPRINT 


:CLRCH 


»CLOSE 15 
!RUECKSPRUNG BASIC 


DATENSATZ SCHREIBEN 


:CHKCOM PRUEFT AUF KOMMA 
:FRMNUM AUSDRUCK 

‘GETADR 16-BIT 

!CHKCOM 

!STRING HOLEN 
!LRENGE=@PRINT 


:ILLIGAL QUANTFTY ERROR 
!CAENGE NACH 1784 


:ADRESSE SPEICHERN 
engen POSITIONIEREN 
JSR SFFC9 2 GCHKOUT AUSGABE AUF Wi 


LDY #508 


L648 
LDR (3573,Y 
JSR $FFD2 


INY 

CPY 382C8 
BNE L648 
LDR #200 


!STRIND AUF #1 AUSGEBEN 


!CHR$(13) 


Assemblerlisting von REL.HELP 


JSR SFFD2 !AUSGEBEN 
JSR SFFCC ’ 


:CLRCH 
RTS ’RUECKSPRUNG BASIC 


DATENSATZ LESEN 
ae !WERTE HOLEN + ZEIGER POSITIONIEREN 
2 


!DATENSATZLAENGE-1 OHNE CHRSC13) 
!STACK SPEICHERN 


11 
ICHKIN EINGABE AUF Wi 


:CHKCON PRUEFT AUF KOMMA 
:STRING VORBEREITEN 


!FRESTR 
!STRRES STRING RESERVIEREN 


3B475= 
#502 


55 
LDA s80651,Y 
STA (549) ,Y 


58 
JSR $E112 
STA (562),Y 
INY 


Cry 361 

BNE L?88 

JSR SFFEC 2 :CLRCH 

RTS "RUECKSPRUNG BASIC 


!BASIN 


l. Anlegen: SYS49672,"test-da- 
tei”,51,500 

2. Öffnen: SYS49563, "test-datei",51 
3, Satz 100 lesen: SYS49807,100,a$ 
4, Schließen: SYS49722 

Bei relativen Dateien ist zu beach- 
ten, daß die Datensatzlänge im- 
mer gleich sein muß. Hat man die 
Datei für Datensätze mit einer Län- 
ge von 51 Bytes (60By- 
tes+Chr$(13)) angelegt, so muß 
ein Datensatz mit Leerzeichen auf- 
gefüllt werden, falls er kürzer als 


50 Bytes ist. 

Listing 3 enthält ein kurzes Demo- 
programm, das die Funktion der 
einzelnen Befehle zeigt. 

Das Programm „REL.HELP" hatei- 
nen Umfang von 343 Bytes und be- 
legt den freien Speicherbereich 
von $C170 — $C2C6 (49520-498862). 
Zur Zwischenspeicherung werden 
die Speicherstellen 704-720 be- 
nutzt. File #1 und #15 sind bei 
der Arbeit mit „REL.HELP* geöff- 
net und dürfen nicht anderweitig 


verwendet werden. 
Das Programm (Listing 1) muß mit 
dem Checker eingegeben wer- 
den. Als Startadresse ist C170 an- 
zugeben. Statt des Checker- 
Listings kann auch der Basic-La- 
der in Listing 2 eingegeben wer- 
den. Er speichert das fertige Pro- 
gramm auf Diskette ab. 
„REL.HELP" wird mit Load ..,8,1 
geladen. Danach ist NEW einzu- 
geben. 

(Thomas Stüwe) 


Ihre Spende 
=100% Hilfe! 


»Brot für die Welt« leistet bzw. aus Kirchensteuer- 
wirksame Hilfe zur mitteln finanziert. Bitte 
Selbsthilfe. Seit 25 Jahren. helfen Sie mit Ihrer 
Spenden für »Brot für Spende, damit die Arbeit 
die Welt« werden in voller fortgesetzt werden kann. 
Höhe für Entwicklun Auch kleine Summen 
projekte und Soforthilfe- können eine große Hilfe 


maßnahmen in Entwick- bedeuten. 

lungsländern verwandt. Aktion »Brot für die Welt« 
Die anfallenden Kosten Stafflenbergstraße 76 

für Verwaltung oder 7000 Stuttgart 1 
Werbung werden nicht Konto: 500 500-500 

aus Spendenmitteln, beim Postscheckamt Köln 
sondern durch Zinsen (BLZ 370 10050) 
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„= Zusatztastatur 
y@Sfür professionelles 
e” Arbeiten 
ee Anbausatz im Commodore-Design 
000 passend zu © 16, C 20 und C 64. 
Technische Daten: 
@ +/- Tasten 


® große Return-Taste 
@ bewährte CHERRY-Tasten (16 Mio. Betätig.) 
„## e problemloser Anschluß 


DM 149 inkl. Mwst., Versandpausch. 6,- 
per gr. Zahlbar per Scheck. Nachnahme 
4 450 Bei Bestellung Farbe und Rechnertyp angeben. 
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Kartei auf Kassette 


Die Datasette ist das Stiefkind der 
Dateiverwaltung. Die einschlägi- 
gen Programme arbeiten fast alle 
nur mit der Floppy. Der Grund: 
Kassetten erlauben keinen direk- 
ten Zugriff. Um an Daten am Ende 
des Bandes heranzukommen, muß 
der vordere Teil erst überlesen 
werden. Raffinessen wie relative 
Dateien sind daher auf die Floppy 
beschränkt. 

RUN-Programmierer Matthias 
Richter hat sich von diesen Pro- 
blemen nicht entmutigen lassen. 
Sein Dateiprogramm verwaltet bis 
zu 200 Datensätze. Anzahl und In- 
halt der Felder sind frei wählbar. 

Zu Beginn wird gefragt, ob eine 
bereits geschriebene Datei be- 
nutzt werden soll, oder ob man 
eine neue Datei eröffnen will. 
Beim Anlegen einer neuen Datei 
wird erst nach der Anzahl der Fel- 
der und nach ihren Namen age- 
fragt. Bis zu zehn Felder sind er- 
laubt. Diese Angaben werden in 
einer kurzen Hilfsdatei namens 
„VORSPANN* abgelegt. 


Daten eingeben und 
ansehen 


Soll eine bereits vorhandene Da- 
tei benutzt werden, wird die Hilfs- 
datei erst eingelesen. 

Nun erscheint das Hauptmenü: 

l Daten schreiben 

2 Daten anfügen 

3 Daten lesen 

4 Weitere Daten lesen 

5 Daten ansehen 

6 Daten ändern 

7 Daten löschen 

8 Exit 

Daten schreiben: 

Hier werden die Datensätze ein- 
gegeben. Die Namen aller Felder 
werden angezeigt. Darunter ist je- 
weils der gewünschte Text einzu- 
geben. Danach wird die Datei un- 
ter dem Namen „CBM 64 DATEI" 
abgespeichert und ins Untermenü 
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Datasette 


Floppydateien gibt’s 
viele. Kassetftenbenut- 


zer werden schlechter 


bedient. Ein Basicpro- 


gramm macht die Data- 


sette zur Datenbank. 


„Daten ansehen“ gesprungen (sie- 
he unten). 
Daten anfügen: 
Zunächst wird geprüft, ob schon 
eine Datei im Speicher steht. 
Wenn nicht, wird sie erst eingele- 
sen. Dann können weitere Daten- 
sätze wie unter Menüpunkt ] ein- 
gegeben werden. Zum Schluß 
wird die Datei wieder abgespei- 
chert und ins Hauptmenü zurück- 
gekehrt. 
Daten lesen: 
Die Datei wird in den Speicher ge- 
lesen. Danach wird ins Untermenü 
„Daten ansehen" gesprungen. 
Weitere Daten lesen: 
An die Daten im Speicher wird 
eine weitere Datei angehängt. Da- 
durch besteht die Möglichkeit, 
eine Datei in mehreren Teilen an- 
zulegen. Sie können bei Bedarf 
aneinandergehängt werden, sind 
aber auch alleine ladbar. Man 
braucht also nur die gerade benö- 
tigte Teildatei einzulesen und 
spart sich die langen Ladezeiten 
für die restlichen Daten. 
Daten ansehen: 
Es erscheint ein Untermenü mit 
den folgenden Punkten: 
l Hauptmenü 

Daten ansehen: 
2 Gesamte Daten 
3 Ein Datensatz 
4 Verschiedene Datenfelder 
5...(Name von Feld 1) 
6...(Name von Feld 2) 
Mit Taste ] wird ins Hauptmenü 
zurückgekehrt. Mit den übrigen 
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Tasten kann die Datei im Speicher 
nach verschiedenen Gesichts- 
punkten betrachtet werden. Zur 
Auswahl stehen: Ansehen der Ge- 
samtdatei (2), eines einzelnen Da- 
tensätzes (3), eines einzelnen Fel- 
des von allen Datensätzen (5-. .) 
und einer beliebigen Kombination 
von Feldern von allen Datensät- 
zen. Nach der Ausgabe wird im- 
mer ins Menü „Daten ansehen" zu- 
rückgesprungen. 

Daten ändern: 

Das Untermenü bietet folgende 
Möglichkeiten: 

] Hauptmenü 

2 Abspeichern 

3 Kompletter Datensatz 
4...(Name von Feld 1) 
5...(Name von Feld 2) 

Taste 1 führt wieder ins Haupt- 
menü zurück. 


Abfrage, ob schon ein Vorspann 


existiert 
15 Dimensionieren 
20 -100 Hauptmenü 
150 Ende 
200 —310 Menü Daten ansehen 


Menü Daten ändern 


satzes 
480 —500 Ändern von Einzeldaten 
700 —740 Ändern eines gesamten Daten- 
satzes 
850 —890 Daten abspeichern (Text) 
1000 — 1040 Unterprogramm zur Eingabe eines 


Datensatzes 


1100 — 1150 Unterprogramm zum Daten abs- 
peichern 

1200 — 1280 Unterprogramm zum Daten lesen 

1500 — 1700 Daten anfügen 

1500 — 1540 Einlesen von Daten, wenn noch 
keine im Speicher sind 

1350 — 1850 Eingabe neuer Daten 

1660 — 1700 Abspeichern 

1800 — 1820 Daten einlesen (Text) 

1850 — 1970 Daten schreiben + abspeichern 

2000 — 2030 Einen Datensatz ausgeben 

8350 — 2390 Ausgabe der gesamten Daten 

2509 — 2610 Einlesen des Vorspanns 

2650 — 270 Eingabe des Vorspanns und 
Abspeichern 

2200 — 2810 Einlesen einer weiteren Datei 

3000 —3140 Ansehen verschiedener Daten- 
felder 

3200 — 3250 Ansehen eines bestimmten Daten- 
feldes 

3300 — 3650 Daten löschen 

300 — 3350 Menü Daten löschen 

3400 — 3540 Eingabe der Nummern der zu 
löschenden Sätze 

3550 — 35930 Sortieren der Nummern der zu 
löschenden Sätze 

3590 — 3650 Löschen 


10000 — 10030 Unterprogramm für Dateiende 


Auswahl des zu ändernden Daten- 


Nach Drücken von 3 wird ein gan- 
zer Datensatz geändert. 
Taste 4 und folgende ermöglichen 
die Änderung einzelner Felder in- 
nerhalb eines bestimmten Satzes. 
| Unter Punkt 2 wird die geänderte 
Datei neu abgespeichert. 
Alle Menüpunkte führen wieder 
ins Änderungsmenü zurück. 
Daten löschen: 
Folgende Unterpunkte stehen zur 


Datasette 


Auswahl: Exit: 

l Hauptmenü Das Programm wird beendet. 
2 Daten löschen Programmbeschreibung 

3 Abspeichern Wichtige Variablen: 


a$ (Feldnummer/Satznummer): 


Hier können einzelne Datensätze 
aus der Datei im Speicher ge- 
löscht werden (2) und die geän- 
derte Datei wieder abgespeichert 
werden (3). Mit Taste | geht's wie- 
der zurück ins Hauptmenü. 


Dateninhalt 

b$ (Feldnummer): Feldäname 
i: Anzahl der Datensätze 

zz: Anzahl der Felder 


(Matthias Richter) 


poKke 53288, 11:roke S3281 ,11:print 
cbm 7]1* chrs# (14) 

print "Wollen Sie bereits geschriebene 
Daten 

print *"Idowunlbenutzen (b), oder wollen Sie 
eine neue 

print *Ldoun]Datei eroeffnen {n)?* 

get s$tif 335="n* then 2698 

if s$=*"b" then 25008 

soto 5 

dim aß(zz ,208) 

rem #3 hauptmenue ##% 

erint *lcir ‚Iöspaces ]Menuet 

print "L2doun]i- Daten schreiben 

print *"[doun]2- Daten anfuegen 

erint *"Ldoun]3- Daten lesen 

erint *Ldoun]4- Leitere Daten lesen 

print *Ldoun]5- Daten ansehen 

print "Ldoun]&E- Daten aendern 

erint "Ldoun)?- Daten loeschen 

print *Ldoun]S- Exit 

set a$ıamal (as)ıif aci or a8 then 98 
on a goto 1858,195008,1800,2808 ,208 ,358, 
33980,150 

roke 53281 ,246:ipoke 93280 ,254 pr int 
elr ]*tend 

rem #+#= daten ansehen ##% 

erint "Lclir ‚l12spaces JMenue! 

erint *"tdouwn]i- Hauptmenue 

print "Idoun,3spaces )Daten ansehent 
serint *ldoun]2- Gesamte Daten 
print *"tdown)3- Ein Datensatz 
erint "I[doun]4- Verschiedene Datenfelder 
for y=1 to zz 

print y+4"- *"bSi(y) 

next 

input astamwal Cas)tif ati or a)zz+4 then 
398 

if a>4 then 3208 

on & goto 28,23990,2000,3098 

rem «2+ daten aendern ### 

print "Lclr ‚I2spaces ]Menue! 

print *fdoun)i- Hauptmenue 

print "tdown)2- Abspeichern 

print "Ldoun)3- Kompletter Datensatz 

tor t=i to zziprint t+37bS(Ct)ınext 

input aßta=ua] tas)tif a<i or a’zz+3 then 
448 

if a=1 then 28 

if a=2 then 850 

input "I[cIr]JWelche Satznummer *ie$ 

ea=sval (es):if e<i or e>i then 458 

if a=3 then 700 

rem «2% einzeldaten ##* 

print *"Lcir3jBisher'tdoun)*’asta-3,e) 
input "Ldoun]Neu”srasta-3,e) 

goto 358 

rem #2#* Kompletter datensatz =#z 

print *"tciriBisher: 

for t=1 to zziprint aslt,e)ınaxt 

print "Idoun]Neut 

sosub 1088 


*fcir, 


"pur, 
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soto 358 

ram s+* daten abspeichern #»% 

print *"Lcir,rus1iZurueckspulen!!loff]” 
rrint "[i16spaces ]Taste 

get aSıif a$="* then 878 

sosub 1188 

soto 358 

rem #24 aingabe eines datensatzes »## 
for t=1 to zz 

print *"Ldoun])"bsit)":i” 

input astt,e) 

next 

return 

rem #+*2#2 daten abspeichern ### 

open 1,1,1,"chm 64 datei" 

tor y=1 to itfor yy=1 to zz 
print#i,ascyy,y) 

next yy,y 

close 1 

return 

rem +##+ daten lesen ###* 

open 1,1,8,"cbm 64 datei* 

i=ir1 

for s=1 to zz 

input#i,as(s,i) 

next 

if st and 64 then 1270 

goto 1218 

close 1 

return 

it 158 then 1950 

rem ss2 noch keine daten im speicher »#3# 
print "[cir ]Die Daten werden erst 
eingelesen 

print *L19doun ‚Ispaces ,rvs ‚Sspaces ]Taste 
T[dspaces ,off] 
roke 198,Btruait 
gosub 12988 

rem ++» daten anfuegen ##8 

print *LcirlEingabe der neuen Datent"ie=i 
ese+ritiprint "[2doun]Satznummer:!"e 

sosub 1808 

print *"0.K. (j/n>? 

yet r$sıif .r$="j” then 1628 

if r$="n" then 1578 

goto 1999 

erint "LdounlNoch mehr Daten (j/n)?"” 

get rsiif rS="j" then 1568 

if rS="n* then 1568 

goto 16938 

rem =4# daten abspeichern ### 

print "lelr])6st. zuruseckspulen!! 

print "L19doun ‚3spaces ‚,rus ‚Sspaces ]Taste 
t4dspacas,off) 

poke 198 ,8:tuait 1998,1:print 
i=metgosub 1108 

soto 28 

ram ss» daten lesen ### 
print "[Lelr)Spulen Sie bis zum Anfang der 
Dateil’ıj=9: 

print *ledoun,idspaces ]Taste"ıipoke 199,8: 


198 ,1ri=Bd:print *"Lcir)* 


"tcir]* 
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wait 
1818 sosub 1288 571 | 2885 pcre 198,O:uait 199,1 1 
1828 soto 2088 s58 | 28108 gosub 120819010 298 3 


138,1 anzufue-[down ‚Zspaces)genden Datei” 
1849 rem #+x= daten schreiben ### 29939 rem #4+ ansehen verschiedener datenfelder 
1858 print "Lclr ]*"ti=lie=i 1379 FFr 
1868 print "tdown ]lSatznummert"i 1536 | 30888 print *tcir)*tfor t=I to zziprint t, ee 
1879 gosub 1888 583 bStt)Y*trinext 
1888 print "o,.K. (j/n)? 1341 | 3818 input "Wieviele Datenfelder"ru 
1898 get asiif a$="j" then 1920 1567 | 3028 if u<i or u?zz then 3088 
19088 if as$="n" then 1878 1654 | 3838 i# u=zz then 2358 15 
1918 soto 1898 6653 | 3848 print "Idoun]Geben Sie nun nacheinander 38 
1928 print "Weitere Daten (j/n)? 2195 die Zahlen 
1938 get astif a$S="j" then i=i+tite=itigoto 1868 23086 | 3958 print "Ldounlder Datenfelder ein, die Sie 27 
1948 if aS=*"n* then 1969 1852 sich 
1958 soto 1938 619 | 3968 print "Ldownlansehen wollen, ze2 
1954 rem »z# daten abspeichern a## 3878 #or o=1 to utinput wlo)inext 1 
1955 print "[edoun]Spulen Sie das Band nun so, 3458 | 2998 #or yi.i to i 
dass ich \ 3898 for y2=1 to o-I 

1956 print *Ldoun)die Datei abspeichern Kann. 2922 | 3188 print bS(utyB))r "[2spaces ]*aScu(y2),yi) 
1957 print *"L2doun,‚lispaces ]Taste*ipoke 198,81 ©9331 | 3118 next y2 

wait 198,1 3128 poxe 198,B:wait 198,1 ı 
1968 sosub 1198 567 | 3138 next yi 
1978 soto 280 558 | 2148 goto 18008 
1999 rem z#3= daten auf bildschirm: ein datensat 3199 rem »as ansehen eines bestimmten datenfeld 

z u... es #28 
280088 input "Icir)Weiche Satznummer "ras 2254 | 3288 print "LeirI*b8ta-4) 183 
2818 a=-val (quI:if qii or q>i then 2888 2086 | 3518 #or t=1 to i 73 
2820 for t=1 to zziprint b#(t)*r"iprint aslt, 2528 | 2228 print asca-4,t) 

a)tnext 3230 poke 198,Biwait 198,1 1 
2039 soto 19808 565 | 3248 next 
2349 rem «#2 daten ansehen! gesamte daten zz» 3250 soto 12008 
2358 print "Lcir]*ıfor u=i to itprint *"Ldoun] 3046 | 3299 rem ### daten loeschen ### 

- Satznummer t"u 3308 print "Lcir ‚iispaces ]Menue:i 131 
8355 for y=1 to zz 945 | 3318 print "I - Hauptmenue 1888 
2368 print as(y,u) 1887 | 3328 print "2 - Daten loeschen i 
2378 next y 308 | 3338 print “3 - Abspeichern 138 
2380 poke 198,8:wait 199, 1inext 1819 | 3348 get asta=val (as)ıif a=® or a>3 then 334e B2are 
2398 soto 18808 565 | 3358 on a goto 29,3400,938 142 
2499 rem #3% einlesen des vorspannes #22 3488 print "[doun]Geben Sie nun nacheinander 281 
2508 print "Icir]Spulen Sie nun die Kassette 3777 die Satz- 

bis zum 3418 print "Ldouninummern der zu loeschenden 3 
8518 print *"Ldown]'Vorspann' und druscken Sie 3986 Daten ein. 
dann bitte 3428 input *"fdoun IJSatznummer "IKz 167 
2328 print *"[Ldounleine Taste 1442 | 2438 if Kz<i or kz>i then print "L3up l"ıgoto 240 
8538 poxe 198,8:uait 198,1 1588 23429 
2548 open 1,1,®8,"vorspann* 1534 | 3435 goto 3508 
2558 input#i1,zz# S13 | 3448 print *LdounINoch mehr? <J/n>* 
©5355 zzaval (zz) 932 | 2458 get asiif as="j" then print "L7upl"igoto 3171 
2568 z®rz+tltinput®#1,bs(z) 1243 | 3420 
2608 if z=zz then close I:goto 15 1774 | 3468 if aS=*'n* then 3550 164 
2618 goto 2568 623 | 3478 print *Lup,rusiINoch mehr? (j/n)t2upl*igoto ZAGE 
2649 rem ### eingabe des vorspannes ### 2448 
8658 print *lciriAnzahl der Datenfelder (max. 2817 | 3499 rem »## kontrolle der eingegebenen zahlen 
18) ..+ 
2668 input "Ldoun,1?spaces)"izz 1112 | 3588 wruriricw)=kziif wei then 3548 2485 
©8678 if zz<l or zz>1i® then 2658 1679 | 3518 #or t=1 to w-Iti# Icw3=Ict) then rel 2s21 
2688 for z=1 to zz 347 | 3528 next 138 
2698 print "Name des Datenfeldes M.i*"z 2571 | 3338 if r=1 then r=O:u=4-liprint "L3up]"ıgoto 3283 
27080 input "Idoun,17?spaces]*rb#tz) 1463 3428 
2718 next 138 | 3548 print *"Idoun]” tab(3sw)ltu)tgoto 3448 2035 
2715 print *"lcir)"isor t=1 to zziprint bEit)t 2071 | 3558 if u=!I then lti’=kziu=itgoto 3598 2734 
next 3954 rem #823 sortieren nach groesse ### 
2716 print "l2doun,‚4spaces 10.K. [2spaces 3tj/n)? 1583 | 35355 or +tt=I to u-1 1163 
2717 get rStif r$="j" then 2728 1842 | 3588 for t=1 t6 u=-1 1338 
@rIS if rS="n" then 2698 1677 | 3570 if Ict>cict+1? then rre=ittdilctyelcteid: 4232 
2719 goto 2717 783 1(t+1)err 
2728 print *"Lcir,doun]Spulen Sie das Band nun 3468 | 3588 next t,tt 705 
so, dass ich 3589 rem »#= loeschen #az 
2738 print "Idounlden Vorspann abspeichern 3593 | 3598 for o=1I to wtprint ‚Ico) 1994 
kann. dann 3688 Kz=int (icko)>)ifor t=kz to i-i 2a72 
2748 print "tdounldruecken Sie bitte eine 2895 | 3618 for tt=1 to zz . 889 
Taste. 3629 asitt ‚tymasitt,t+1) 2039 
2745 zz&estrS (zz) 888 | 3638 next tt,t 545 
2758 get bS:if b$="" then 27508 1698 | 36848 i=-i-ı 323 
©7539 rem ### abspeichern des vorspannes ### 36$8 next o 288 
2768 open 1,1,1,*"vorspann" 1566 | 3668 u"Btgoto 28 s23 
8778 printHi,zz®e 9333 | 9999 rem ### anzeige fuer dateiende ##8 
2788 for z=1 to zziprint#1,b$s(z)inext 1852 |18888 print "Ende der Datei! 1471 
278$ close I 258 |18818 print *Druecken Sie nun 'w' zum 4285 
2798 goto 15 447 weitermachen 
2799 ram #+* einlesen einer weiteren datei »3# 108828 get asiif asc)"u" then 19820 1791 
erint *tcir )Spulen Sie bis zum Anfang der 5330 |18850 soto 208 558 
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SUPEREPROMKARTE 256K 

Mehr Speicherkapazität als eine Dis- 
kette! Eine echte Alternative zum zwei- 
ten Diskettenlaufwerk. 

Sie können auf der 256-K-Epromkarte 
eine Direktory anlegen und die Pro- 
gramme aus dieser aufrufen und direkt 
starten. Ein in der Steuerung einge- 
bauter Modulgenerator macht alle Pro- 
gramme für die Karte lauffertig, sodaß 
der Anwender keine Spezialkenntnisse 
benötigt. 

PREIS incl. Steuereprom 


Technische Daten: 
8 Steckplätze für 2764, 27128, 27128, 27256. Mitgeliefertes 


Steuereprom auf separatem Sockel. Betrieb am Expansions- 
port. Keine Eingriffe in den Rechner nötig! 


AHRTERFTITESTREN 


Superepromkarte 8.3 95,— DM 
Eine Epromkarte für 8x 8K-Eproms, Jedes Eprom kann über 
die Funktionstasten angewählt werden. Viele Sonderfunktio- 
nen für Betriebssysteme, Basicinterpreter usw. Jetzt auch 
mit der Directoryfunktion und Modulgenerator wie die 256 K- 
Karte!! 

Technische Daten: 

8 Steckplätze für 2732, 2764. Einer mit Steuereprom belegt. 
Steuerfunktionen sind In Basic- oder Maschinenprogramma 
einzubauen. Betrieb am Expansionsport ohne Eingriff in den 
Rechner. 


DELA-Epromkarten: 
Epromkarte 2.1 19,50 DM 


Für 2 Eproms 2716-2764 (oder 1x 27128). Voll bestückt mit 
Sockel, Ein-/Ausschalter, Umschalter, Reset-Taste, 


Universalkarte 4.1 29,— DM 


Für 2x 2764 oder 2x 27128, Betriebsart als Epromkarte für 4 
Modulprogramme ä 8 K oder für vier Betriebssysteme. Mit 
dieser Karte können Sie Ihre neuen Betriebssysteme am 
Modulport ohne Eingriff in den Rechner betreiben. 


Modulkarte Dela.MO 8,90DM 
Diese Karte wird als Leerplatine für ein Eprom (2732-27128) 
verkauft. Es sind ja nach Bestückung 5 Betriebsarten mög- 
lich: 

1. 8/16 K Epromkarte mit elektronischer Abschaltung. 

2. 8/16 K Epromkarte mit elektr. Ein- und Ausschaltung 

3. Externes Betriebssystem (Expansionsport) 

Leergehäuse für DELA.MO 6,— DM 


öfach Betriebssystemschaltkarte 
5/1. Für vier zusätzliche Betriebs- 
systeme auf zwei 27128. 


Absturzfrei! 
ohne Schalter 35,— DM 
— mit Schalter 45,— DM 
?tach Betriebssystemschaltkarte 
2/1. Für ein zusätzliches Betriebs- 
system auf 2764. 
Absturzfrei! 
PR" ohne Schalter 38,— DM 
, Einbau der Karte In den Sockel des 
Kernalroms, 
Profi-Betriebssystem 30,— DM 


7x schneller laden, DOS auf F-Tasten, viele Sondertunktionen 
mit CTRL-Taste. Auf 2764-Eprom für Universalkarte oder Um- 
schaltkarten 


Vertrieb in der Schweiz: 


MFS Hard- & Software, 0 37/36 20 60 
Postfach, 3185 Schmitten 


Vertieb in Holland: 


Gima Printservice, Tele: 0 77/70 937 
PB. 186-5900 AD — Venlo 


VUN MEREEN I ZFRWOLS. ZöM 


Eprommer I 


Funktionen: 


DELA-EPROMMER 


Unser bewährter Eprommer für 2716-27128 {27256 nach Umbau). Alle Funktionen sind softwarege- 
steuert. Keine Einstallarbeiten! Betrieb am USER-Port ohne sep. Netzteil. 


ee ee 


Lesrtest, Auslesen, Monitor, Einzelbyteprogrammierung, Wiederholungsmethode zur Programmie- } 
rung mehrerer gleicher Eproms. Schnelle Programmierung {8 K In 28 s) 50 ms/Byte ebenfalls mög- 


lich. Verity während der Programmierung. 

Nur als Bausatz lieferbar: 

mit Textoolsockel 199,— DM 
ohne Textoolsockel 79,— DM 


incl. Software auf Diskette. (Kass. 10,— DM Aufpreis) 


DELA-Eprommer Il 149, — 
Unser neues Supereing!! 


Brennt 2716-27256 und alle pinkompatiblen C-MOS-Eproms. Programmierspannungen: 12V, 21V, 


25 V (softwaregesteuert) 


Zusätzlich zu den Funktionen von Eprommer 1 sind in der Software eingebaut: Eprom-Speicherver- 


gleich 


Autostartgenerator für Basic- und Maschinenprogramme 
Der Eprommer Il ist nur als Fertiggerät mit Textooisockel lieferbar. Software auf Diskette, 


16K-RAM Modul 79,— DM 


Eine Soft-Epromkarte für den Modulentwickler. 
Das RAM kann normal beschrieben werden. 
Die Funktion der Karte entspricht der einer 
Epromkarte für 8/16 K oder Betriebssystem. 
Ein Anschluß für eina Batterie oder Accu Ist 
vorgesehen. 


DELA-Modulgenerator 59,— DM 
Der Modulgenerator macht aus Ihren Programmen 
(Basic oder Maschine) brenniertige Modulprogram- 
me. Sie können bis 4 Programme auf ein Eprom 
brennen und diese Über die F-Tasten auswäh- 
len. Für8 K oder 16. K Eproms. Der Modulgene- 
rator wird als Steckmodul mit Gehäuse geliefert. 


Adapter/Stecker 


Stach Userportadapter mit Reset-Taster. 38,—DM 
Winkeladapterplatine 9,90 DM 
Experimentierplatte für Modulport/Userport 18,— DM 
Steckplatzerweiterung 
komplett: 

Bausatz: 
Userporistecker 
Gehäuse hierfür 
Modulportstecker 


Module: 

alle mit Gehäuse! 
Turbo-Tape 

Turbo-Disk 

Turbo-Modul 85 

[T-Tape + T-Disk) 
S/4-Modul 

(T-Tape, T-Disk, DOS, OLD) 


9,—DM 
69,— DM 
5,—DM 
4,—DM 
9,90DM 


DELA-Elektronik GmbH 


5000 Köln 1 


Aquinostr. 12, Tel.: 02 21/72 53 36 


Ladenöffnungszeiten: Mo.—Fr. 10 — 18 Uhr. 


IC-Tester 134,— DM 


Der IC-Tester testet alle TTL-IC bis 28-Pins auf 

korrekte Funktionen. Ein Erkennen von unbe- 

kannten (abgeschliffenen) IC’s ist möglich, da 

der Tester die Typen selbständig erkennt, Über 

die Dauertestiunktion können auch IC-Fehler i 
festgestellt werden, die nur zeitweise auftre- 

ten. Eine sinnvolle Ergänzung Ihres Elektronik- 

labors. Der Tester ist mit einem 28poligen Text- i 

oolsockel bestückt. Software auf Diskette. Be- 

trieb am Modülport. t 


Epromlöschgerät 115,— DM 
Komplett mit Gehäuse. Nur 3 Min. Löschzeit 


Löschset 43,50DM 
Selbstbauset mit UV-Röhre, Vorschaltgerät, 
Fassungen usw. für 228 V-Betrieb, Ohne Ge- 
häuse, 


Eproms: 
2764 9,—DM 8K-RAM 14,—DM 
27128 10,— DM (6264 15 ns} 


272566 30,—DM 5255 7,—DM 
Zubehör: 

Nashua-Disketten SSDD 10Stck. 39,—DM 
Noname-Disketten DSDD 10Stck. 30,— DM 


Diskettenhüllen: Klarsichttaschen für Inhalts- 
verzeichnis, Selbstklebend5S0Stck 8,90 DM 


Nachnahmeversand! 

NN-Spesen 7,50 

Vorkasse-Betrag + 3,— DM Porto 

ab 200,— DM spesenfrei 

Ausland: nur Vorkasse 

Ab 10 Stck./Artikel gibt es auf j 
diesen Artikel 10 % Rabatt!! 


Info kostenlosi! 


Anwendung 


Siebzehn und 


Beim Glücksspiel 17 und 4 treten 
zwei Spieler gegeneinander an. 
Beide decken abwechselnd eine 
Karte auf. Ziel ist es, möglichst vie- 
le Punkte zu machen. Der Haken 
dabei: Wer mehr als 2] Punkte 
kassiert, hat verloren. Da heißt es 
aufpassen und überlegen: Rei- 
chen die Punkte schon, um den 
Gegner auf's Kreuz zu legen? 
Oder muß noch eine weitere Kar- 
te her, mit dem Risiko, die tödli- 
chen 2] zu überschreiten? 

32 Karten sind im Spiel. Die Zah- 
lenkarten Sieben bis Zehn geben 
Punkte entsprechend ihrem Zah- 
lenwert. Für die Buben gibt's 
zwei, die Damen drei, die Könige 
vier und die Asse elf Punkte. Je- 
der Spieler bekommt maximal 
sechs Karten. Wer genug Punkte 
hat, kann natürlich vorher mit dem 


Vier 


Kleines Spielchen ge- 
fällig? Zum Zocken zu 
zweit sind keine Karten 
nötig. Der C 64 teilt aus 
und zählt die Punkte. 


Aufdecken aufhören. 

Das Programm erklärt nach einer 
kurzen Titelgrafik die Regeln und 
fragt nach den Namen der Spie- 


ler. Dann werden die Karten‘ 


durchgemischt und das Spielfeld 
aufgebaut. Vor jedem Spieler lie- 
gen sechs Karten mit dem Rücken 
nach oben. Jeder wählt mit den 
Tasten 1 bis 6 eine Karte aus. Wer 


keine mehr braucht, drückt die 
Taste @. Die Karten werden nun 
herumgedreht und für jeden Spie- 
ler die bisher erreichten Punkte 
angezeigt. Wenn ein Spieler das 
Limit von 21 Punkten überschrit- 
ten hat, oder wenn beide keine 
Karten mehr wollen, ist das Spiel 
zu Ende. Nach der Siegerehrung 
wird eine neue Runde gestartet 
oder das Programm verlassen. 
Programmbeschreibung: 

0 — 95 Einleitung, Spielregeln, teil- 
weise Definition der Variablen 
100 — 985 Definition der Karten, 
Mischen und Äusteilen der Karten 
990 — 2740 Aufbau des Spielfel- 
des, Abfrage der Karten, Punkte- 
wertung 

2800 — 4003 Auswertung des 
Spiels 

(Michael Balke) 


POKE 888,2:POKE 657,128 
PRINT "ICLR,UHTI” 
FOR Y=ıI TO 5 


PRINT " [HOME ‚6DOWN,SSPACES,25CBM P]* 


PRINT *"t7SPACESI/L24SPACESI/CCEM GI” 
PRINT "L7SPACES,RVS]s#(C) MICHAEL 
BALKE !!!*s[0OFF) [CBM G]* 
PRINT "[7SPACES,RVSI L[OFF) ICBM 6, 
@ISPACES,RVSI [OFF] ICBM G]1* 
PRINT *"L7SPACES,RVS1 [OFF] ICBM G, 
@ISPACES,RVS]I IOFF] [CBM G]* 
PRINT "L7SPACES,RVSI [OFF] ICBM 6, 
SISPACES,RVSI IOFFI ICBM G]" 
PRINT "L?7SPACES,RVS]I LOFF) [CBM 6, 
BISPACES,RVSI [OFF] tCBM 01” 
PRINT "L7SPACES,RVS]I [OFF ICBM G, 
BISPACES,RVSI LOFF) {CBM G1* 
PRINT "I7SPACES,RVS]I [OFF] ICBM 6, 
@ISPACES,RVYS]I IOFF) {CBM GI* 
PRINT "t7SPACES,RVS] [OFF] I[CBM 6, 
@ISPACES,RVS)I [OFF] ICBM G]* 
PRINT *L[7SPACES,RVS) IOFFI L 
t2ICBM P,RVS) LOFFI ICBM 0)" 
PRINT "I7SPACES,RVSI LOFFI/ 
TB2SPACES,RVSI [OFF] ICBM 6)" 
PRINT "I[7SPACES ,RVS1x#PRODUCED BY 
M.B.-SOFT&2#IOFF]/" 
PRINT "HOME ‚SDOWN,7SPACES ,RVS] 
tOFF) [CBM G,3SPACES,CBM P,2SPACES, 
4CBM P ,ESPACES,CBM PI" 
PRINT *t?SPACES,RVS) [OFF] ICBM G, 
@SPACES]//LCBM G1/L3SPACESI/ICEM G] 
tCBM P,BSPACES]I//ICBM G,CBM P]" 
PRINT *L7SPACES,RVS] IOFF) ICBM 6] 
[RVS,SHIFT £] LOFF) ICBM G,RVS, 
ASPACES,OFFI/ /A_ {RVSI LOFFI /A* 
PRINT "t7SPACES,RVS]I IOFF] ICBM G, 
RVS,SHIFT £,OFF,SHIFT £,RVS1 [OFF] 
[CBM G,2SPACES ,RVS,SHIFT £,OFF, 
SHIFT £) /IRVSI IOFFI//UCBM G,RVSI 
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tOFFI/CRVSI [OFF)//UCBM G]" 
PRINT "L?SPACES,RVS]I [OFF] [CBM G, 
SSPACES,RVS]I [OFF] ICBM G]1 [RVS, 
SHIFT £,OFF,SHIFT £ ‚2SPACES ,RVS, 
SSPACES,OFFI/ IRVS ‚4SPACES,OFF1/" 
PRINT "Lt7SPACES,RVS]I [OFF] [CBM G, 
@SPACES,RVS) [OFF] ICBM G,RVS, 
SHIFT £,OFF,SHIFT £,4SPACES ‚RVS] 
tOFFI1/L4SPACES,RVS]I [OFF] ICBM G]*” 
PRINT *t7SPACES,RVS) [OFF) [CBM G, 
BSPACES ,RVS) tOFFI1/ ISHIFT £, 
11SPACES,RVS] [LOFF]/* 
NEXT 
PRINT *tCLRI" 
PRINT "t145PACES,RVSISPIELREGELN: * 
PRINT "LiSSPACES,CBM T,CBM Y,CBM U, 
RVS,CBM 1,CBM 0,CBM P,CBM O,CBM I, 
OFF,CBM U,CBM Yı“ 
PRINT " SPIELER: 2" 
PRINT "[DOWN] JEDER SPIELER HAT 5 
KARTEN !* - 
PRINT "[DOWN] WECHSELWEISE WERDEN 
DIE KARTEN EINZELN* 
PRINT "I[DOWN]I AUFGEDECKT.WER DIE 
MEISTEN PUNKTE HAT,” 
PRINT "L[DOWNI HAT GEWONNEN 
(VORAUSGESETZT ‚DASS”" 
PRINT "IDOWNJ KEINER DER BEIDEN 
SPIELER MEHR ALS 21” 
PRINT "EDOWN] PUNKTE HAT >." 
PRINT "tDOUN) KENN SIE KEINE KARTE 
MEHR AUFDECKEN* 
PRINT "LDOWNI WOLLEN,DANN GEBEN SIE 
BITTE '@' EIN !* 
PRINT "LDOWNI [RVSITASTE DRUECKEN I* 
GET Z$: IF Z8="" THEN 47 
DIM A$(32)>:D1M E<32)> 
PRINT *ECLR,WHTI" 


7ı 


838 


Anwendung 


S"B:R"BIPC1)="B:P(27=Bı1P(3)=-BıPC4)=B: 
P(5)=B:P(6)=0:0C1)=08:0(2)=9:Q(3)=B1 
aca)=O 
9(5)=B:0(6)=d:Ks( 1 )="A*iKks(2)="B" 
POKE 53281,®8 

INPUT "t6DOWNI SPIELER 1"75$(1) 
INPUT "LDOWN] SPIELER 2*,58$<2> 
ASCI)>="079* 
AS(2)="080* 
ASC3)="030" 
AS(A4)="020* 
ASC5Y)="4BH" 
AS(E)=*00+* 
AS(5)="0B0" 
ASEI="0D#" 
ASC7T)="oKe" 
ASta)= ne" 
AS(I)="979* 
AS1BI="999" 
ASCLLI="90* 
AS I2I""Z9" 
ASI3)="089" 
ASCIA)="909" 
ASCISIERKR" 
ASCIEI=" MP" 
ASCIT)="070" 
ASCIB)="408" 
ASCIB)" "90" 
AS(2O)="020" 
ASK2I)>" "BR" 
AStZ2)="408* 
AS2I)="aKe" 
ASt2z4)w "ne" 
AS2E5Y="07%* 
AStZ2E)" 0080" 
ASKETI="98* 
AS(2B)" "078" 
AS(29)='485%* 
AS3O)= "20%" 
AS(31)=’EK®" 
ASI2)= AR" 
ACI>I=INT RND 
At2>I=INT RND 


Ä 1).232) +1 

< 
A(3)=INT < RUND 

< 

< 


<1)2392>+1 
1>232)+1 
A<A)=INT RNDO <1)a32 > +1 

ACSI=INT RND t1>a327 #1 

AtS>=INT € RND 1923297 +1 

IF Al2)=Ac1) THEN 518 

IF At3)=At2) OR Al3>=At1) THEN S28 
IF Aka)=Ac3) OR Ald)’=At2) OR Aa) 
Ati) THEN 538 

IF AtS)=Aca) OR Al5Y=Al3) OR AiS)= 
AX2) OR AtS)=AC1) THEN 548 

IF AtGI=A(S) OR AlB)=A(C4) OR Alb)= 
A<3> OR AtGI=At2) OR A(B>’=ACI) THEN 
558 
B{HI=INT < 
B<2)=INT < 
B{3)=INT < 
Bt4)=INT < 


RNO 
RND 
RND 
RND 


<1>232>+1 

(1)8327+1 

<1)232>+1 

<1)832) +1 

B({S)=INT € RNO <IIa32 3 +1 

B{EI=INT € RND (183297 +1 

IF BCEI=BC1) THEN 718 

IF B(3)=B(2) OR B{i3)=Bc1) THEN 7208 
IF B(4)=B(3) OR B(i4)«B<c2) OR Bia)= 
Bt1) THEN 738 

IF B(S)=8(4) OR B(S5)=B(3) OR BiS5I- 
B{2) OR B(S5)>=B<1)> THEN 748 

IF BC1)=ACI) OR Bii)=Ac2) OR Bii)= 
A(3) OR Bti)=At4) OR Bti)=AcS) OR 
B(1)=A(6) THEN 788 

IF Bt2)=AcC1> OR B(i2)=A(C2) OR Bi2)= 
A(3) OR Bi2)>=Ac4) OR Bi2)=At5) OR 
B(E)I=ALE) THEN 718 

IF B(3)=AL1) OR Bi3)=Ac2) OR B(3>= 
At3) OR Bt3)=Ac4) OR B(3)"A(S5) OR 
B(3)=A(6) THEN 728 

IF B(4)=NntC1) OR Bi4)"Ac2) OR Bi)" 
A<3) OR Bi4)=At4) OR Bt4)=A(S5) OR 
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848 


1838 


1848 


1858 


1878 


1898 


1188 


1118 


11208 


1130 


1148 


1158 


B{i4)“A(B) THEN 739 

IF B<S>=AcC1) OR BISI-AC2) OR BiS)= 
An<3) OR BiS)=Ac4) OR B(SI7=ACS> OR 
B(S)=A(S) THEN 748 

IF B(E6)=At1) OR B(6)=A<2) OR B(6)=- 
A(3) OR BiE)"A(a) OR BiEI=ACSI OR 
B(BE)=A(6) THEN 7598 

FOR C=1 TO 32 

D=D+1 

IF Actı)=D 
IF At2)=D 
IF At3)eD 
IF At4)=D 
IF AtS5)=D 
IF At6)»D 
IF B(1)=D 
IF B<2)=D 
IF 8(3)=D 
IF Bc4)=D 
IF B<S)=D 
IF Bt6)=D 
NEXT 
PRINT "LCLR,WHT,9SPACES JPUNKTE: 
{3SPACES,SHIFT -) PUNKTE: * 
PRINT "LESPACESI —— 
lin ya Hr Sl 


THEN Bs(1)=As(D) 
THEN Bst2)=As(D) 
THEN 8$(3)=A$(D) 
THEN Bs(4)=AS(D) 
THEN BSE(5)=AS(D) 
THEN Bs(6)=A$ı(D) 
THEN C$C1)=-AS(D)> 
THEN C#(2)=A%(D) 
THEN C${3)=As(D) 
THEN C$#(4)=A%$(D) 
THEN C#(5)=As(D) 
THEN C$t8)=As(D) 


PRINT "LBSPACESII -— r—Tt2SPACcESI] 


IEBSPACESI -—n rn 1" 

PRINT "L8SPACES] | ITGRN,SCBM +,WHTI| 
ISHIFT -,GRN,SCBM +,WHTIIL2SPACESII 
[2SPACESI I LGRN,SCBEM +,WHT,SHIFT -]| 
IGRN,SCBM +,LWHTII| I" 

PRINT *L6SPACES]| ILGRN,CBM +,WHT]1 
[GRN,CBM +,UWHTIIISHIFT -,GRN,CBM +, 
WHTIZLORN,CBM +,WHTIIL2SPACESI]| 
[ESPACESIILGORN,CBM +,WHTIILGRN, 

CBM +,WHT,SHIFT -1|IGRN,CBM +,WHTI2 
[GRN,CBM +,WHTII I" 

PRINT "LSSPACES)| JEGRN,SCBM +,WHTJ| 
ISHIFT - ,GRN,SCBM +,WHTIIL2ZSPACES]! 
[2SPACESI I LGRN,3CBM +,LHT,SHIFT -31| 
[GRN,SCBM +,WHTII I" 

PRINT *LESPACESI| IIGRN,SCBM +,WHT]I 
[SHIFT -,GRN,3SCBM +,WHTIIL2SPACESI| 
t2SPACES) ILGRN,3SCBM +,KHT,SHIFT -]1 
[ORN,3CBM +,WHTIII* 

PRINT "tSSPACESI | “—— —— T2SPACES] 
I1L2SPACES I) u my 8 

PRINT "LBESPACESII -—— -— [2SPACES] 
IT2aSPACESI -—— rm 1" 

PRINT *"LSSPACESI| ILGRN,SCEM +,WHTI| 
[SHIFT -,GRN,SCBM +,WHTIIL2SPACESII| 
tZSPACESI|TORN,3CBM +,WHT,SHIFT -]1 
IGRN,3SCBM +,WHTI II" 

PRINT "L8SPACESI| ILGRN,CBM +,WHTI3 
IGRN,CBM +,WHTIIESHIFT -,ORN,CBM +, 
WHTI4LGRN,CBM +,WHTIIT2SPACES]II 
t2SPACESIITGRN,CBM +,WHTI3LGRN, 

CBM +,WHT,SHIFT -]ILGRN,CBM +,WHTI4 
[GRN,CBM +,WHTII I” 

PRINT "L8SPACESII IEGRN,SCBM +,WHT]| 
[SHIFT -,ORN,3CBM +,WHT)IT2SPACES)| 
[2SPACESIILGRN,3CBM +,LWHT,SHIFT -]1 
LGRN,3CBM +,WHTIII” 

PRINT "[ESPACES] I IEGRN,SCBM +,WHT]I 
[SHIFT -,6RN,SCBM +,WHTIIT2ZSPACES)| 
I2SPACESIIIGRN,3CBM +,WHT,SHIFT -11 
LGRN,3CBM +,WHTIII” 

PRINT "L[8SPACES ] | “— Js [2SPACES] 
ILaSPACES I — m ® 

PRINT "LESPACESI | -— m [2SPACES] 
ITE2BSPACESI —— 1" 

PRINT *"t6SPACES]| IIGRN,3CBM +,WHTI1 
{SHIFT -,GRN,3CBM +,WHTIIL2SPACESII 
L2BSPACESI | LGRN,3SCBM +,WHT,SHIFT -11 
[GRN,3CBM +,WHTIII* 

PRINT *t6SPACES)| |LGORN,CBM +,WHTIS 
[ORN,CBM +,WHTIIESHIFT -,GRN,CBM +, 
WHTISIGRN,CBM +,WHTIIL2SPACES]| 
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3383 


4283 


4458 


4263 


4263 


3342 


3383 


4263 


4491 


4263 


4263 


3342 


3383 


4263 


47793 


>» 


| 


1168 


1178 


tESPACESIILGRN,CBM +,WHTISLGRN, 

CBM +,WHT,SHIFT -1ITGRN,CBM +,LHTIS 
EGRN,CEM +,WHTIII" 

PRINT "LSSPACESI I IEGRN,SCBM +,UHTJI 
[SHIFT -,ORN,3SCBM + ,WHTIIT2SPACESI| 
[2SPACES] | LGRN,SCBM +,WHT,SHIFT -]] 
[GRN,SCBM +,WHTIII" 

PRINT *"tESPACESI | ITGRN,ACBM +,WHT)I 
{SHIFT -,GRN,3CBM +,WHTIITESPACESII 
[2SPACESI ILGRN,SCBM +,WHT,SHIFT -]1I 
LGRN,SCBM +,WHTII I" 

PRINT "tESPACESI | — Js [2SPpAcES] 
IL@aSPACES I —/ 1 |" 

PRINT *"L8SPACES,CBM Q] 

[SHIFT +) ICBM 14]* 

PRINT "[8SPACESI I LI2SPACESII| 
LISSPACESII* 

PRINT "[B8SPACES J ——CBM E] 
m) 8 

PRINT * [HOME ‚21D0WN,SSPACESI | "1S$C1) 
PRINT "HOME „2I1DOWUN]*ZSPC<19>)7 "|"; 
ss(e)> 

PRINT *tHOME „21DOWN]* SPC (3277 "| 
LIBSPACESI* 

IF K#c1)="@" THEN 1256 

INPUT * HOME ‚2300UN,3SPACES JLELCHE 
KARTE "IL 

KSCH)=MIDS (L#,1,1) 

IF KSCH)C*1" OR KSt1)>"6* AND Kscı)c 
>"@* THEN 1258 

IF KSti)="R* AND Ksi2)=*"@* THEN 2788 
IF Ksl2)="@* THEN 1268 

PRINT "HOME ‚„2300UN]"SPC<21 >97 1 INPUT 
"WELCHE KARTE"IMS 

KS(2)=MIDs <Ms,1,1) 

IF K2C2)C"1” OR KSC2)>"B" AND Kscart 
»*@" THEN 1268 

IF K$ti)="@* THEN 1348 

IF K$C1)=*"1* THEN 1488 

IF K$ti)="2* THEN 1580 

IF K$tl)="3*" THEN 1680 

IF Ksci)=*4* THEN 1788 

IF Ksci)="S" THEN 1608 

IF KSC1)="6" THEN 1988 

IF K$(t2)="1" THEN 2808 

IF KS(2)="@" THEN 2688 

IF K$t2)="2* THEN 219806 

IF Kst2)="3* THEN 2288 

IF K$t2)="4* THEN 2300 

IF K2(2)="5*" THEN 2488 

IF Ksl2)="6* THEN 2508 

PRINT *tHOME ‚WHT,2DOLN]* 

PRINT SPC(8):Bs<1) 

PRINT SPC(8)7 "[3SPACES]* 

PRINT SPC(8)+ *L3SPACESI" 

PRINT SPC(B)JBSC1) 

GSt1)=MID® (B#<1),2,1) 

IF GSC1)="7" THEN 1458 

IF GSt1)="8" THEN 1451 

IF G$(1)="9" THEN 1452 

IF G$t1)="2* THEN 1453 

IF GS(1)="B" THEN 1454 

IF G$t1)="D* THEN 1455 

IF GSt1)="K" THEN 1456 

IF G$tl)=*"A* THEN 1457 

Pt1)=7:1G0T0 1348 

P<1)=8:60T0 1349 

P(1)=9:G0T0 13498 

P<1)=18:100T0 1348 

Pt1)=2:160T0 1348 

Pt1)=3:1G0T0 13498 

P<1)=4:1G60T0 1348 

Pt1)=11:00T0 1348 

PRINT "tHOME ‚UHT ,2DOUN]" 

PRINT SPC< 13) B8<27 

PRINT SPC (13) "L3SPACES]* 

PRINT SPC(13>+ *t3SPACES]* 

PRINT SPC:13) 88:2) 
6%(2)=MID$ (Bs(2),2,1> 
IF GS(2)="7" THEN 1558 
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IF G$(2)="8" THEN 
IF GS(2)="9* THEN 
IF G$(2)="Z2" THEN 
IF GSt2)="B" THEN 
IF 0$(2)="D" THEN 
IF GS(2)="K* THEN 
IF G$(2)="A* THEN 
P(2)=7:G0T0 1348 
P(2)=8:1G60T0 1348 
F(2)=9:G60T0 1348 
P(2)=18:G0T0 1348 
P<(2)=2:G60T0 1348 
P(2)=3:60T0 1348 
P(2)=4:160T0 1348 
P(2)=115G0OTO 1348 


PRINT "THOME ‚WHT ,8D0WN]* 


PRINT SPC<8)7B#<3) 


PRINT SPC (897 *t3SPACES)" 
PRINT SPC (8)7 "L3SPACES)* 


PRINT SPC<8)7B#(3> 


1932 
1553 
1554 
1555 
1558 
1557 


6%{3)=MID# (BS(3),2,1> 


IF 68(3)="7*" THEN 
IF G$(3)="8" THEN 
IF G$(3)=*9* THEN 
IF 6%<3)="Z2” THEN 
IF G$(3)="B" THEN 
IF 6$<3)="D" THEN 
IF 68(3)="K* THEN 
IF G$(3)="A" THEN 
P(3)=7:60T0 1348 
P(3)=8:160T0 1348 
P(3)=9:G0T0 1348 
P(3)=18:G0TO 1348 
P(3)=2:G0T0 1348 
P{3)=3:1G60T0 1349 
P(3)=4:G0T0 1348 
P(3)=11:G60T0 1348 


PRINT *CHOME ‚LWHT ,8DOLN]* 


PRINT SPC< 13) ,B8<4 


PRINT SPC<(13)5 "L3SPACES]" 
PRINT SPCt13); *L[3SPACES]* 


PRINT SPC< 13) ’B$(4 


1659 
1651 
1652 
1653 
1654 
1655 
1656 
1657 


> 


> 


G6#(4)=MIDS (B#(4),2,1) 


IF G$(c4)="7" THEN 
IF O8(4)=*"8* THEN 
IF G$(4)="9" THEN 
IF Gst4)=*"2* THEN 
IF G$t4)="B" THEN 
IF Gs(4)="D" THEN 
IF Gst4)="K" THEN 
IF GS(4)="A" THEN 
Pt4)=7:G0OTO 1348 
P(4)=8:160T0 1348 
P(4)=9:G0TO 1348 
P(4)=18:1G0T0 1248 
Pi4)=2:60T0 1348 
P(4)=3:1G0T0 1348 
P(4)=4:160T0 1348 
Pt4)"=11:G0T0 1348 


PRINT * HOME ‚WHT, 14DOWN]" 


PRINT SPC<B),B#<5) 


PRINT SPC(89 5 "L3SPACESI*" 
PRINT SPC (89: *[3SPACESI* 


PRINT SPC(8)77B$(5) 


1758 
1751 
1752 
1753 
1754 
1755 
1756 
1757 


G6$(5)=MIDOs (B3t5),2,1> 


IF 608<(5)="7?" THEN 
IF GS(S5)=*8* THEN 
IF G$(S)="9*" THEN 
IF G8(5)=*"Z* THEN 
IF G$<(5)=*"B*" THEN 
IF G8(S5)=*D0* THEN 
IF 6$(5)="K" THEN 
IF Gs(5)="A" THEN 
P«S5)=7:G0T0 1348 
P(5)=8:1G0T0 1348 
P(53)=9:G60T0 13498 
P(5)=18:G0T0 1348 
P(S)=2:G0T0 1348 
P<5>=3:60T0 1348 


1858 
1851 
1852 
1853 
19854 
1855 
1956 
1857 


r CW-Schnupper-Service 


ei uns dürfen Sie ins Volle 


Die Titelim CW-Schnupper-Service 


COMPUTERWOCHE 
Die wohl führende Wochenzeitung für die Computerwelt. 
Ausschließlich im Abonnement. 


micro rweit 

Die „universelle Rote*. Allesüber den (Mikro) Computer im 
Betrieb und im Unternehmen. Jeden Monatim 
Zeitschriften-und Computer-Fachhandel. Oderim 
Abonnement „freiHaus" 


PC-Welt 

Die „spezielle Blaue“. Neutrale Berichte aus der 16-Bit-Welt. 
Jeden Monat im Handel. Oder — als Abo— imBriefkasten. 
apple’s 

Das Monat-Magazin für alle, dieeinen Apple-Computer 
besitzen oder sich dafür interessieren. Jeden Monatneuim 
Handel. Oderim Abo. 


RUN 

Die „frische Gelbe“. Für alle, die einen Copmmodore- 
Computer als „Werkzeug“ oder als „Freizeit-Gerät” be- 
nutzen. Oder beides . ,.. Jeden Monat aktuell im 
Handel. Oder als Abo. 


COMPUTER BUSINESS 

Das Fach-Magazin für Profis im (Mikro)Computer- und 
Software-Handel, für OEMs und Marketing-Spezialisten. 
Ausschließlich Abonnement, 


x CW-Schnupper-Service läßtSietesten, welche unserer software-markt 

likationen „rund ums Computern" — vom Home-Computer bis Der Info-Dienst für Manager und Insider der Computer- 
inframe — für Sie die richtige ist: Branche. Alle zwei Wochen — randvoll mit Hintergrund- 
icken Sie uns nur eine ausreichend frankierte Postkarte, aufdie Wissen — ausschließlich im Abonnement. 


maximal drei verschiedene Zeitschriften-Titel schreiben, die 


näher kennenlernen möchten. Vergessen Sie Ihren Absender 


t. (Bei Bestellung eines Probe-Exemplares E - 
MPUTER BUSINESS benötigen wir außerdem Ihren Firmen- GW Er 


mpel!) 4 


= 
Asus 


enlos — und völlig unverbindlich für Sie schicken wir Ihnen das 

Areter frei Haus. 

-Publikationen — Vertrieb W 30 — Postfach 40 04 29, ’ zn - 
München 40 Eine Erste Adresse für die Computerwelt 

BEREITEN N ER. DS COM 


Anwendung 


1856 P(S)=4:1G0T0 1348 1448 | 2247 IF H8(3)="D* THEN 2255 1486 
1857 P<S5>=11:60T0 1348 1234 2248 IF HS(3)="K* THEN 2256 1557 
1988 PRINT "HOME ,LWHT, 14DOWN]" 1289 2249 IF Hs<3)="A" THEN 2857 1611 
1918 PRINT SPC<13)7B$<6) 1302 2258 Q13)"7:G0T0 2688 1528 
1928 PRINT SPC<(13> 7 *"L3SPACESI" ı212 2251 0(3)=8:60T0 2688 1385 
1938 PRINT SPC<13); "L3SPnCES]* 1212 2252 0(3)=9:G0TO 2688 1337 
1948 PRINT SPC (13) 7B88(6) 1382 2253 0(3)=18:G0T0 2808 1145 
1941 GS(6)=MID$ (Bs(8),2,1> 1957 2254 0(3)=2:6G0T0 2688 1368 
1942 IF Gs(6)="7" THEN 1958 1558 | 2255 0(3)=3:G0T0 2698 1488 
1943 IF GS(6)="8*" THEN 1951 1623 2256 0(3)=4:G0T0 2608 1432 
1944 IF G$(6)="9" THEN 1952 1688 | 2237 @(3>=11:G0T0 2688 1283 
1945 IF G${(6)="2" THEN 19353 1785 2388 PRINT * [HOME ,WHT,8DOLN]" 881 
1946 IF GS(6)="B" THEN 1954 15708 2318 PRINT SPC(28B))C#<4> 1496 
1947 IF GS(6)=*D" THEN 1955 1636 2328 PRINT SPC(28)7 "L3SPACESI" 1256 
1948 IF GS(6)="K" THEN 1958 1787 | 2338 PRINT SPC<2877 "[aSspACESI* 1256 
1949 IF Gs(6)="A" THEN 1957 1761 2348 PRINT SPC(28)7C$(<4) 1486 
1958 P(6)=7:G0T0 1348 1548 2341 H$(4)=MIDS (C#(4),2,1)> 1927 
1951 P(6)=8:1G0T0 1348 1325 2342 IF HSC4)="?* THEN 2358 1448 
1952 P(6)=9:G0T0 1348 1357 2343 IF HS(4)="8* THEN 2351 1505 
1953 P(6)=18:160T0 1348 1174 2344 IF H$(4)=*9*" THEN 2352 1578 
1954 P(6)=2:60T0 1348 1388 2345 IF H$t4)="Z" THEN 2353 1667 
1953 P<6)>=3:G0T0O 1348 1420 2346 IF Hst4)="B* THEN 2354 1452 
1956 P(6)=4:60T0 1348 1452 2347 IF H$(4)="D" THEN 2355 1518 
1957 P(6)=11:G0TO 1348 1238 2348 IF Hsi4)="K" THEN 2356 1589 
2888 PRINT "CHOME ,UHT ,2DOLIN]" 524 2349 IF H$t4)="A" THEN 2357 1643 
2818 PRINT SPC<23) ,C#(1) 19368 2358 0(4)=7:G60T0 2688 1532 
2828 PRINT SPC (2397 "L3SPACESI*" 1216 2351 0@(4)=8:160T0 26088 1989 
2038 PRINT SPC(23), *t3SPACES]" 1216 2352 0Q(4)=9:G60T0 2688 1341 
2848 PRINT SPC(23)7C#:<1) 1368 2353 Q(4)=18:1G0T0 2608 1149 
2841 HSC1)=MIDS <C#(1),2,1) 1873 | 2354 Q(4)=2:G0T0 26588 1372 
2842 IF H$Ci1)="7* THEN 20858 1344 2355 0(4)=3:G0T0 26988 1494 
8843 IF HSC1)="8" THEN 2851 1489 2356 Q(4)=41G0T0 26988 1436 
2844 IF HSCi)="9" THEN 2852 1474 2357 0O(4)=11:G0T0 2688 1213 
2845 IF HSt1)="Z" THEN 2853 1571 | 2488 PRINT * [HOME ,WHT, 14D0WN]" 1289 
2846 IF HSC1)="B" THEN 29854 1356 | 2418 PRINT SPC<23)7C#(5) 1368 
2047 IF Hst1)="D* THEN 2055 1422 | 2428 PRINT SPC(23)7 *L3SPACES]” 1216 
20848 IF H$<1)="K" THEN 2856 1493 2438 PRINT SPC<23)) "[3SpACES]* 1216 
2849 IF Hst1)="A* THEN 2857 1547 2448 PRINT SPC (23):C8<5) 1388 
2858 Qt1)=7:G0TO 2688 15208 2441 H8(5)=MID# (C$(5),2,1) 1943 
2851 G@C13=8:60T0 2608 12937 2442 IF HS(5)="7" THEN 2459 1472 
2852 Qt1>=9:G0T0 26088 1329 2443 IF HS$(5)="8" THEN 2451 1337 
2853 Qt1)=18:60T0 2608 1137 2444 IF HS(5)="9" THEN 2452 1892 
2854 GtI)=2:1G0T0 26088 1368 2445 IF H$(5)="2" THEN 2453 1699 
2855 G(1)=3:160T0 2808 1392 | 2446 IF HS(5)=*"B" THEN 2454 1484 
2056 QC1)=4:1G0TO 2688 1a24 8447 IF H$(5)="D" THEN 2455 1558 
2057 Qt1)=11:G60T0 26988 1281 2448 IF HS$(5)="K" THEN 2456 1821 
2188 PRINT "HOME ‚LWHT ,2DOLN]I" s24 2449 IF HS$(5)="A" THEN 2457 1675 
2118 PRINT SPC<28)1C8#(2) 1482 2458 0<5)=7:G0T0 2688 1536 
2128 PRINT SPC<28>: *L3SPACESI" 12586 | 2451 0(S5>="8:60T0 2608 1313 
2138 PRINT SPC<28), *"L3SPACESI* 1236 2452 0(3)=9:G0T0 2688 1345 
2148 PRINT SPC(28))C#(<2) 1482 2453 Q(5)=18:1G0T0 2688 1153 
2191 HSC2)=-MIDs (C#(2),2,1) 1895 2454 0(5)=2:1G0T0 2688 1376 
Bilde IF Hsc2)="7" THEN 2158 1376 2455 0(3)=3:60T0 2888 1488 
2143 IF H8(2)="8*" THEN 2151 1941 2456 Q(S)=4:1G0T0 2588 1448 
2144 IF Hs(2)="9" THEN 2152 1506 2457 0Q(53)=11:G60T0 28098 1217 
2145 IF Hst2)="2* THEN 2153 1683 | 2588 PRINT "HOME ‚WHT, 14DOUN]" 1283 
2146 IF H$(2)="B" THEN 2184 1388 | 2518 PRINT SPC(28)7:C$(6) 1418 
@147 IF Hs(2)="D* THEN 2155 1454 | 2528 PRINT SPC<28)7 "t3SPacEsı" 1256 
2148 IF HS(2)=*"K* THEN 2158 1325 | 2538 PRINT SPC(2B)I "L3SPACESI* 1256 
@149 IF HS(2)="A" THEN 2137 1579 2548 PRINT SPC<28):C$(6> 1418 
2158 Q(2)=7:60T0 2606 1524 | 2541 H$(6)=MID® <(c#(8),2,1> 1959 
2131 ac2)=8ıb0TO 2600 13681 | 2542 IF Hs(6)="?7" THEN 2538 15984 
2152 Q(2)=9:1G0T0 2689 1333 | 2343 IF H$(6)="8* THEN 2551 1589 
2153 G(2)=18:60T0 2606 1141 2544 IF HE(E)="9" THEN 2558 1634 
2134 G(2)=2:G0T0 2688 1364 | 2545 IF H$(6)="Z* THEN 2553 1731 
2155 0(2)=3:160T0 2688 1396 2546 IF HS(6)""B" THEN 2554 1516 
21S6 Q(2)=41G0T0 2608 1428 | 2347 IF HS(6)"="D" THEN 25353 1582 
2157 Gt2)=11:00T0 2688 1205 2548 IF HS(6)=*"K* THEN 2556 1653 
2288 PRINT "HOME ,LWHT,8DOLN)* 881 2349 IF Hs(68)="A" THEN 2557 1797 
2218 PRINT SPC<2395C#<3> 1364 2558 Q(&)=?:1G0T0 2688 1548 
2228 PRINT SPC<2397 *[3SPACESı" 1216 | 2551 Q(6)"8:G0T0 26908 1317 
2238 PRINT SPC (2397 "t3SPACES]” i216 | 2352 0(6)=9:G0T0 26988 13493 
2248 PRINT SPC<23)1C#(3) 1364 | 2553 Q(6)>=-10:60T0 2608 1137 
2241 HS(3)=MIDS (C$(3),2,1) 1811 2554 0(6)=2:1G0T0 2688 1388 
2242 IF H$(3)="7*" THEN 2280 1488 | 2555 Q(6)=-3:60T0 2608 1412 
2243 IF H$(3)="8" THEN 2281 1473 | 2356 0(6)=4:G0T0 2608 1944 
2244 IF HS(3)=*9* THEN 2252 153398 | 2557 Q<(6)=11:G60T0 2608 ı221 
2243 IF H$(3)="2" THEN 2253 1635 | 26088 R=PC1>+PC2>+Pi33+PL4)+PiS)+Pi6> 3889 
2246 IF HS(l3)="B* THEN 2254 14208 | 2619 S-@t1>+QCEI+aC3)+Ql4)+QY)+Q<E) 3312 
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esıe 
28615 
2616 
2628 
26308 
2648 
26508 
\ 2668 
2788 
2718 
27208 
2738 
2748 
28088 
2818 
28208 


2839 


2948 
29388 
29108 
29328 


2930 


2948 
3088 


...u.ss©eu:Dn 


© STECKPLATZ ERWEITERUNG); ı 
= N 


ılık 


ELEKTRONIK 


PRINT "THOME ‚UHT ‚SSPACES PUNKTE: "FR 
*" PUNKTE: "5 

TO 2888 NEXT 

AND S=21 THEN 3208 

AND S>21 THEN 33088 

THEN 2888 

THEN 2988 

THEN 3808 

IF S>21 THEN 3188 

GOTD 1228 

IF R=S THEN 3288 

IF R>S AND R<2l THEN 2888 

IF R>S AND R>2i THEN 3888 

IF S>R AND S<21 THEN 2988 

IF R>21 AND S>21 THEN 33898 

PRINT *"ICLR]” 

PRINT *"t8DOWN]* 

PRINT * IRVSJ")S$t1)3 "LOFF] HAT MIT* 
ıRI "PUNKTEN GEWONNEN I* 


PRINT "IDOWN)I IRVS]I"I58<2) 7 *LOFF) 
HAT ’NUR'*7S3 "PUNKTE GEHOLT .* 
GOTO 4888 

PRINT "ICLRI* 

PRINT *"tB8DOUN]” 

PRINT " IRVSI*";SEC2),"LOFFI HAT MIT* 


+53 "PUNKTEN GEWONNEN I!” 

PRINT "[DOWN]I [IRVS]*5S$C1)7 *LOFF] 
HAT 'NUR'*IRI "PUNKTE GEHOLT .„" 
60T0 4888 ! 
PRINT *"ICLRI* 
PRINT "T8DOLN]” 


32kB RAMKARTE, ws; 

64kB RAMKARTE, =; 119; 

40180 ZEICHENKARTE, 248. 139; 

EPROM KARTE, x ır. = + 54; 18; 

STECKPLATZ ERWEITERUNG, sv. 31; 
hart muB: 


@ EPROM KARTE. x 1x» 
@COM-IN 64, -. u 

“8 EPROMPROGRAMMIERER., . 
®® EPROM LÖSCHER, -.- :: 


© ® ZENITH MONITOR, «su: 295; 
.. (Oı RELAISBOX 7950 Di INFRA-ROT SYS. 14950 
©® ÖPOWERBOX 7950 Es SERVO SYS. 3950 


el 


KLEINEN MARKT T+ 4100 KLEVE + TELEFON O2B21 / 28028 


3838 PRINT *LDOWNI [RVSI* 581), "LOFF] 3768 
HAT"IıRI "PUNKTE GEHOLT ." 

3848 GOTO 4888 365 

3188 PRINT *ICLRI" 316 

3118 PRINT "L8DOUN]“ 867 

3128 PRINT * ERVS1*’sSsC1)r*LOFF) HAT MIT" 49328 
ıR? "PUNKTEN GEWONNEN I" 

3138 PRINT "LOOWN]I [RVSI"HISSt2),*LOFF) 3736 
HAT"ISI "PUNKTE GEHOLT .* 

3148 GOTO 40808 565 

32088 PRINT "ICLRI" 316 

3218 PRINT "[8DOWN]" 867 

3228 PRINT * UNENTSCHIEDEN !1!1 2087 

3238 PRINT "LDOWNI JEDER HAT*+S7 "PUNKTE 3168 
GEHOLT !* 

3248 GOTO 4888 565 

3388 PRINT "ICLR]* 316 

3318 PRINT *"L8DOWN]* 867 

3328 PRINT * VERLOREN II 1273 

33308 PRINT *"IDOLNI JEDER HAT MIT"IRI"/*FI 4475 
5} "PUNKTEN VERLOREN! * 

3348 GOTO 48988 565 

40888 PRINT "L3DOWUN] IRVSINOCH EINML? 2326 
Jin?” 

40881 GET 28: IF Z8<>"J* AND Z#<)>"N* THEN 2693 
4081 

4882 IF 25="J“ THEN RUN :END 1322 

4803 SYS 64738 717 


PRINT * ERVSI*758<C2)7*LtOFF) HAT MIT” 
»5} "PUNKTEN GEWONNEN 1!” 


4331 


Der schnelle TURBO-ASS: 
ca. 500 (fünfhundert!) Zellen ekunde. ein 40 Drucker 
ca, 6 Sekunden wollständig 


Der era aa 


en langer Quelltext wird in 


W-Screen-Editor. | ol 
r „Ersetzen“, Blöcke 
nzuladen (MERGE) sind für 
den Editor des TURBO-ASS keine Framdwär dern eingebaute Kommandos 


Der speichereffektive TURBO-ASS: 
Codierwerlahren nützt der TURBO-ASS den Speicher besonders ef 
text eines Programms, das BK 
umfaßt, kann noch im Speicher get 


TURBO-ASS 


Der kompatible TURBO-ASS: 
Außar seinen besonders schnellen und Platz sparenden „Sprint-Files* kann der I 
t eiben. Dadurch können Que 


Ganzes bearbeitet werden 


Der freundliche TURBO-ASS: 


Bi en auf sofort karri 


giert werden 


URBO- 
ie des 
Bi den TURBO-ASS übernommen werden 
te können 1 Sie boguem mit dem TURBO-ASS Ioı Und 
ke elltaxt, sondern nur das fertige Maschinenprogramm ha 
auf dem TURBO-ASS zugeschnittene Version des Omikron-REASS wird mitg 


Der Lieferumfang des TURBO-ASS: 
Diskette mit TURBO-ASS, Omikron-REASS (Spezialversion) sowie diversa Hills- u 
en {z. B. Quell ür Maschinensprache-Monit ausführliches 
buch spiralgebunden, RESET-Taster für RESET ohne Datenver 
Lieferbar ist der TURBO-ASS ab 17. Oktober 85. pünktlich zur 
F furt. Unseren M and können Sie ( e gar nicht vert eh an — 
dem Eingang recht S 
unsere anderen Programm rhi ten vor 
GBASIC 64, die vielseitige und schnelle Basic-Erweiterung, mehrfacher „T 
64er, CHIP, RUN und anderen Fachzeitschriften 
) genten Re-Assembler, « 


begonnene Prof 


einer Oenkt 


nen beraten wir Sie natürlich auch gerne telafo 


OMIKRON Software 
Erlachstr. 15 

7534 Birkonteld 2 

Tel, 0 70 82/53 86 


Händleranfragen erwünscht! 
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Anwendung 


Einmaleins gleich 
Vierundsechzig 


Rechnen lernen ist für Grundschü- 
ler üble Plackerei. Susanne Jung- 
nikl ist Volksschullehrerin und 
kennt die Nöte ihrer Zöglinge. Mit 
vier unterhaltsamen Lernpro- 
grammen will sie den Kindern den 
Einstieg ins Reich der Zahlen er- 
leichtern: „Da ich in unserem 
Haushalt, mein Mann besitzt einen 
C64, ich einen VC20, bald feststel- 
len konnte, welche Faszination 
Computer auf Kinder ausüben, 
beschloß ich, diese Begeisterung 
für Lern- und Übungszwecke zu 
nutzen." 

Jedes Programm behandelt eine 
der vier Grundrechenarten. Da- 
bei sind die lehrplanmäßigen Ent- 
wicklungsschritte berücksichtigt 
worden. Je nach Alter beziehungs- 
weise erreichtem Wissensstand 
können verschiedene Schwierig- 
keitsgrade gewählt werden. Zur 
Kontrolle läuft ab dem Start des 
Programms die Zeit mit. Am Ende 
der Sitzung wird die erbrachte 
Leistung bewertet. 


Addieren 

Hier werden einfache bis schwie- 

rige Additionen geübt (Listing ]). 

Nach kurzer Einführung können 

Grundschüler mit diesem Pro- 

gramm selbständig arbeiten. 

Nach kurzer Einleitung wird die 

Startzeit eingegeben. Danach er- 

scheint das Menü: 

Fl Einer+Einer 

F2 Reine Zehner+Reine Zehner 

F3 Reine Zehner+Einer 

F4 Gemischte Zehner+Einer 

F5 Gemischte Zehner+Reine 
Zehner 

F6 Gemischte Zehner+Gemisch- 
te Zehner 

F7 Programmende 

Nach Auswahl des Aufgabentyps 

wird die Anzahl der gewünschten 

Rechnungen festgelegt. Danach 

erscheint die erste Äddition. Kor- 

rekt eingetippte Ergebnisse wer- 

den mit „RICHTIG!" bestätigt. Bei 

falschem Ergebnis erscheint „LEI- 

DER FALSCH!" mit der Aufforde- 

rung, noch einmal zu rechnen. Irrt 
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DRRENZEONF STERN OR 


Mathe ohne Müh'’: Vier 


Lernprogramme brin- 


gen Abc-Schützen das 


Rechnen bei. 


man sich ein zweites Mal, wird das 
richtige Ergebnis gezeigt. 

Nach der gewünschten Anzahl 
von Aufgaben wird ins Menü zu- 
rückgekehrt. Drücken von F7 be- 
endet das Programm. Vorher er- 
scheint die Auswertung: wie viele 
Rechnungen insgesamt durchge- 
führt wurden, wie viele davon 
richtig waren, wie lange man da- 
für gebraucht hat und eine grund- 
sätzliche Bewertung der Leistung. 
Interessierte Eltern können sich 
so über den Lemerfolg informie- 
ren. Programmbeschreibung: 

10 — 22 Einleitung 

25 — 26 Variablen für Auswertung 
festlegen 

27 — 28 Zeit festlegen 

30 — 38 Menü 

39 — 49 Funktionstasten belegen, 
Schleifenanzahl festlegen 

50 — 77 Zufallszahlen festlegen 
100 — 322 Hauptprogramm: Zei- 
gen der Rechnung, Überprüfen 
der Eingabe, entsprechende Ver- 
zweigung, 

330 — 380 Auswertung: Zeitanga- 
be, Anzahl der durchgeführten 
Rechnungen, Anzahl der richtig 
gelösten Rechnungen, Beurtei- 
lung der Leistung 


Subtrahieren 

Das Programm behandelt Sub- 
traktionsaufgaben unterschiedli- 
cher Schwierigkeit (Listing 2). Die 
Aufgabentypen und die Menü- 
technik entsprechen denen des 
Adaditionsprogramms,. 
Programmbeschreibung: 

10 — 22 Einleitung 

25 — 26 Variablen für Auswertung 


festlegen 
27 — 28 Zeit festlegen 
30 — 38 Menü 


39 — 49 Funktionstasten belegen, 
Schleifenanzahl festlegen 

50 — 79 Zufallszahlen festlegen 
100 — 322 Hauptprogramm: Zei- 
gen der Rechnung, Überprüfen 
der Eingabe, entsprechende Ver- 
zweigung, Zwischenbewertung 
330 — 380 Auswertung: Zeitanga- 
be, Anzahl der durchgeführten 
Rechnungen, Anzahl der richtig 
gelösten Rechnungen, Beurtei- 
lung der Leistung 


Multiplizieren 

Bei den Multiplikationsaufgaben 
(Listing 3) wird das kleine Einmal- 
eins geübt. Ist eine Aufgabe zwei- 
mal falsch gelöst worden, wird 
das richtige Ergebnis gezeigt. Um 
den Lerneffekt zu erhöhen, soll 
nun die Rechnung laut gespro- 
chen und das Ergebnis eingetippt 
werden. Eintippen von „O" als Er- 
gebnis führt zur Auswertung und 
zum Programmende. 
Programmbeschreibunag: 

10 — 50 Einleitung 

60 — 58 Zeit festlegen 

70 — 75 Variablen für Auswertung 
festlegen 

80 — 90 Zufallszahlen festlegen 
100 Schleife für zweiten Versuch 
bei Rechenfehler 

110 Anzeige der Rechnung, War- 
ten auf Eingabe 

120 — 170 Überprüfen der Einga- 
be mit entsprechender Verzwei- 
gung 

200 — 270 Wenn wieder falsch, 
richtige Rechnung mit Aufforde- 
rung, Rechnung zu wiederholen 
300 — 330 Auswertung 


Dividieren 

In Form von „In"-Sätzen werden 
Divisionsaufgaben geübt (Listing 
4). Das Menü bietet zur Auswahl: 
Fl Umkehrung des kleinen Ein- 
maleins (zum Beispiel „3 in 24°) 

F2 Wie bei Fl, aber Aufgaben 
mit Rest („3 in 25") 

F3 „In-Sätze*, deren Ergebnis 
über zehn liegt („3 in 48°) 

F5 Wie bei F3, aber Aufgaben mit 
Rest („3 in 50°) 


F7 Programmende 

Es muß jeweils das Ergebnis und 
der verbleibende Rest angege- 
ben werden, Wie beim Additions- 
programm wird nach zweimaliger 
Falschlösung das richtige Ergeb- 
nis gezeigt und zum Schluß eine 
Gesamtauswertung durchgeführt. 
Programmbeschreibung: 


Anwendung 


10 — 22 Einleitung 

25 — 26 Variablen für Auswertung 
festlegen 

27 — 28 Zeit festlegen 

30 — 38 Menü 

39 — 49 Funktionstasten belegen, 
Schleifenanzahl festlegen 

50 — 68 Zufallszahlen festlegen 
100 — 322 Hauptprogramm: Zei- 


gen der Rechnung, Überprüfen 
der Eingabe, entsprechende Ver- 
zweigung 

330 — 380 Auswertung: Zeitanga- 
be, Anzahl der durchgeführten 
Rechnungen, Anzahl der richtig 


gelösten Rechnungen, Beurtei- 
lung der Leistung. 
(Susanne Jungnikl) 
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... ADDIEREN ... 
«UEBUNGSPROGRAMM FUER«# 
” GRUNDSCHUELER ” 
* VC-28, C-694, C-1I6 8 
=» SUSANNE JUNGNIKL # 
* RE INERSDORF 99 ® 
*:: A-7522 *.. 
*s 8043/83324/38507 #s 
PRINT CHR# (147) 
PRINT :PRINT *L2SPACESIKANNST DU GUT 
[9SPACES JADD IEREN?” 
PRINT :PRINT "[2SPACESIBEWEISE ES!" 
FOR T=1 TO 2O8B8:NEXT 
LET $5=8 
LET A=8 
PRINT CHRS <147):PRINT :PRINT "GIB 
ALS STARTZEIT” 
PRINT :PRINT *L2SPACES 198088088 
L2SPACESIEIN:"ıI INPUT TIs 
PRINT CHR$ <147)1ıPRINT " WAEHLE AUS: 


PRINT !PRINT EINER+EINER" 
PRINT :PRINT "F2--REINE I18ER+R.18ER* 
PRINT :PRINT *F3---REINE 1BER+EINER*" 
PRINT PRINT "F4-----GEM. 18ER+EINER* 
PRINT :PRINT *"FS-GEM. 1BER+REIN. IBOER* 
PRINT tPRINT "F&--GEM. 1BER+GEM. IGER* 
PRINT :PRINT PROGRAMMENDE”" 
GET AsılF AS=*" THEN 39 

IF ASC (As)<133 OR ASC (AS)>139 THEN 
39 

IF ASC (A$)=136 THEN 338 

LET R=®8 

PRINT tPRINT :PRINT "WIEVIELE 
RECHNUNGENL4SPACESJWILLST DU 
MACHEN? ": INPUT W 

FOR J=1 TO W 

AuA+1 

IF JeW+i THEN GOTD 388 

ON ASC (A$)-132 GOTO 508,55,68,65,67, 
78,75 

K=INnT RND (1)29+1) 

Y=1NT RND (1>29+1):G0T0 188 

%=1INT RND (1)29+1)218 

Y=INT RND t(1)2:29+1):G0T0 198 

K=INnt RUND <1>288+11> 

Y=InTt RND <1)29+1)218:G0T0 188 

*=1NT RND <1>29+1)=18 

Y=1NnT RND <1>39+1)218:60T0 188 
*=INT RND <17288+11)> 

Y=inr RNDO <1>29+1):ıG0T0 1988 


Listing 1: Addieren 


m 
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REM #»=2# SUBTRAHIEREN z##3 
REM sUEBUNGSPROGRAMM FUER= 
REM ®* GRUNDSCHUELER = 
REM = VC-28, C-64, C-16 ® 
REM =» SUSANNE JUNGNIKL # 
REM #* REINERSDORF 99 > 
REM »2% n-?522 n.* 
REM +# 8043/03324/308507 »#» 
PRINT CHR#$ (147) 

PRINT :PRINT "L2SPACESIKANNST DU GUT 
[9SPACES JSUBTRAHIEREN?" 


Br MORELSHILTERWER.D. SO u 


964 


3191 


75 X=INT < RND (1>388+11) 

77? Y=INT < RND (1)s88+11):G0T0 188 

188 FOR I=1 TO 2 

118 PRINT CHRS$ (147>:PRINT :PRINT PRINT 
"[3SPACESI"K*’+"Y’-"5: INPUT P 

128 IF P=X+Y THEN R=R+1 

125 IF P=sX+Y THEN S=S+1 

138 IF P=X+Y THEN PRINT ıPRINT PRINT * 
ISSPACESIRICHTIG! ":GOTO 278 

158 IF 1=2B THEN GOTO 288 

168 IF P<>X+Y THEN PRINT :PRINT :PRINT 
"LEIDER FALSCH!" 

178 PRINT :PRINT "RECHNE NOCH EINMAL!" 


188 FOR T=1 TO 1S88:NEKT 

198 NEXT I 

288 PRINT !PRINT :PRINT "LEIDER WIEDER 
FALSCH! II" 

228 PRINT :PRINT "RICHTIG WAERE GEWESEN: 

ee PRINT 

222 PRINT :PRINT !PRINT K*’+"Y"'="K+Y 

238 FOR T=1 TO 4888:NEXT :G0T0 288 

278 FOR T=1 TO I808:NEKT 

288 NEXT J 


388 PRINT CHR$ <147):PRINT :PRINT "DU 
HAST*W"RECHNUNGENI2SPACES]) 
GERECHNET, 

385 PRINT :PRINT "DAVON WAREN z=2"R"=« 
[3SPACESIRICHTIG!* 

318 IF R=Ü THEN PRINT :PRINT :PRINT t 
PRINT *"L7SPACESJBRAVOI I I* 


322 FOR T=1 TO BBBB:NEXT :G0TO 38 

338 PRINT CHRS (147) 

332 PRINT !PRINT ıPRINT *BENOETIGTE 
ZEIT: *TIE 

348 PRINT "L3SPACESI(#sSTDE=MINSSSEK) 

358 PRINT ıPRINT !PRINT * INSGESAMT HAST 
Du* 

352 PRINT :PRINT "L4SPACESI* 
A"RECHNUNGEN* 

355 PRINT :PRINT "GERECHNET." 

368 PRINT :PRINT "DAVON WAREN #="5*2% 
L4SPACESIRICHTIG! 

363 IF S=A THEN PRINT :PRINT *DU BIST 
RECHENMEISTER I TTIEEIETSTERIERTIE NN 
rı" 

368 IF S>=A-A/3 AND S<A THEN PRINT ı 
PRINT "DU HAST GUT GERECHNET!" 

378 IF S<A-A/3 THEN PRINT :PRINT "DU 
SOLLTEST FLEISSIG UEBENII* 

380 END 


28 PRINT :!PRINT "I2SPACESIBELEISE ES!" 
e2 FOR T=1 TO 2888:NEKXT 

85 LET 5=8 

26 LET A=8 

27 PRINT CHRS (147)ıPRINT IPRINT "GIB 


ALS STARTZEIT* 

28 PRINT :PRINT *"L2SPACES)8089888 
tESPACESIEIN: "INPUT TI® 
PRINT CHR$ (147):PRINT " WAEHLE Ausı* 
PRINT !PRINT "Fi-=-------EINER-EINER"® 
PRINT :PRINT "F2--REINE IBER-R.1IBER" 
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en rn 


un BNNDUAWTI- 


un 


Anwendung 


PRINT :PRINT "F3---REINE 18ER-EINER*" 
PRINT :PRINT GEM. 18ER-EINER" 
PRINT :PRINT "FS-BEM. IBER-REIN. 1BER* 
PRINT :PRINT "F6--GEM. IBER-GEM, 18ER" 
PRINT :PRINT PROGRAMPENDE” 
GET A$ı IF As="*" THEN 39 

IF ASC (As)><133 OR ASC (AS$)>139 THEN 
33 

IF ASC (A$)=136 THEN 338 

LET R=B8 

PRINT IPRINT :PRINT "WIEVIELE 
RECHNUNGENLA4SPACESIWILLST DU 
MACHEN? *: INPUT U 

FOR J=1 TO W 

A=fri 

IF JeW+1 THEN GOTO 388 

ON ASC <As)-132 GOTO 58,55,68,653,66, 
79,75 

K=INT € RND (19#9+1) 

Y=INT < RND <1)7329+1) 

IF Y>X THEN G0OTO 58 

G0TO 188 

%*=INT € RND <1)29+1)218 

Y=-INT € RND (1)=9+1>:00T0 198 

%“=INT < RND (1)=88+11) 

Y=INT € RND (1>#9+1)2:198 

IF Y>X THEN GOTO 68 


-G0TO 188 


K=INT € RND (1?#9+r1)818 
Y=INT € RND (1)39+1) #18 

IF Y>X THEN GOTO 66 

G0TO 188 

*=INT (€ RND (1)s=88+11) 

Y=1NT € RND (1)#9+1):G60T0 188 
%=INT € RND (1)#88+11> 

Y=INT € RND t1)288+11> 

IF Y>X THEN G0OTO ?5 

GOTO 180 

FOR Is:1 T0 2 

PRINT CHR#$ {147):PRINT PRINT PRINT 
"L3SPACESI"K"-"Y"""It INPUT P 
IF P=X-Y THEN ReR+1 


223 ıixı ... 
*UEBUNGSPROGRAMM FUER= 
* GRUNDSCHUELER * 
= VC-20, C-64, C-16 
» SUSANNE JUNGNIKL # 
* REINERSDORF 99 * 
».. A-7522 ..* 
*s 00843/083324 /30507 ## 


PRINT CHR$ (147) 

PRINT :PRINT "L2SPACESIKANNST DU DAS 
IN1?” 

PRINT !PRINT *"L2SPACESIBELEISE ES!" 

PRINT :PRINT tPRINT :ıPRINT " 
[ESPACESIWENN DU AUFHOEREN" 

PRINT :PRINT "I2SPACESIWILLST, TIPPE 


© EIN!” 

FOR T=1 TO 4888:NEXT 

PRINT CHRS (147) 

PRINT :PRINT "GIB ALS STARTZEIT * 
PRINT PRINT *L2SPACES 18880888 
[@SPACESIJE IN: *: INPUT TI# 

LET S=® 

LET A=8 

*=INT € RND <1)29+2) 

Y=INT € RND (1)>=9+2) 

FOR 1-1 TO 2 

PRINT CHRS <147):PRINT :PRINT 1PRINT 
*L3SPACESI"KX"K*"Y*="s1 INPUT P 

IF P=XsY THEN 3=5+1 

IF P=XsY THEN PRINT :PRINT :PRINT * 
[SSPACESIRICHTIG!*:160T0 278 

IF P=8 THEN GOTO 388 


IF P=X-Y THEN S=S+1 

IF P=%-Y THEN PRINT tPRINT :PRINT * 
tESPACESIRICHTIGI":G0TO 278 

IF I=-2 THEN GOTO 288 

IF P<>X-Y THEN PRINT PRINT ı PRINT 
"LEIDER FALSCH!" 

PRINT PRINT *RECHNE NOCH EINMALI* 
FOR T=e1 TO 1S88:NEXT 

NEXT I 

PRINT :PRINT :PRINT "LEIDER WIEDER 
FALSCH! II" 

PRINT :PRINT "RICHTIG WAERE GEWESEN: 
PRINT 

PRINT PRINT PRINT K"-"Yrmty-Y 

FOR T=1 TO 488B:NEXT :GOTO 288 

FOR T=1 TO 1888:NEXT 

NEXT J 

PRINT CHRS <147):PRINT :PRINT *DUu 
HAST "W*RECHNUNGENL2SPACES JGERECHNET, 
PRINT :PRINT "DAVON WAREN z#"’R"s3 
L3SPACESIRICHTIG!”* 

IF R=W THEN PRINT :PRINT PRINT t 
PRINT *L?SPACESJBRAVOI I!" 

FOR T=1 TO 8BB8:NEXT :GOTO 38 

PRINT CHRS (147) 

PRINT :PRINT :PRINT "BENOETIGTE ZEIT: 
"T1s 

PRINT "L3SPACESI(#«STD+=MINSKSEK > 

PRINT :PRINT :PRINT * INSGESAMT HAST 
DU* 

PRINT PRINT *t4SPACES1"A "RECHNUNGEN" 

PRINT :PRINT "GERECHNET.* 

PRINT :PRINT "DAVON WAREN =2"5"+8: 
L4SPACESIRICHTIG! 

IF S=A THEN PRINT :PRINT "DU BIST 
RECHENMEISTERI I TIL TERRAIN G 
1. 

IF S>=A-A/3 AND S<A THEN PRINT :PRINT 
"DU HAST GUT GERECHNET! * 

IF S<A-A/3 THEN PRINT !PRINT *DU 
SOLLTEST FLEISSIG UEBEN! I" 

END 


IF I»-2 THEN GOTO 288 

IF P<>X=Y THEN PRINT tPRINT :PRINT 
"LEIDER FALSCH!" 

PRINT !PRINT *RECHNE NOCH EINMAL!" 
FOR T=1 TO 1S988:NEXT 

NEXT I 

PRINT !PRINT :PRINT "I! !WIEDER 
FALSCHLIII* 

PRINT :PRINT "ES HEISST "K’X*Y'="XaY 
PRINT :PRINT :PRINT *SAGE DIE 
RECHNUNG UND TIPPE DAS ERGEBNIS 
[4SPACESJEIN!*": INPUT R 

IF R=KeY THEN GOTO 278 

IF R<>XsY THEN GOTO 288 

FOR T=1 TO 1888:NEKXT 

A=A+1 

GOTO 88 

PRINT CHRS (147 >:PRINT tPRINT "DU 
HAST"A"RECHNUNGENL2SPACES] 
GERECHNET. 

PRINT PRINT "DAVON WAREN x2"S*ız= 
[3SPACESIRICHTIG!* 

IF S=A THEN PRINT SPRINT ıPRINT ı 
PRINT "DU BIST RECHENKOENIG! !* 

IF S>=A-A/3 AND S<A THEN PRINT : 
PRINT :PRINT :PRINT "DU HAST GUT 
GERECHNET! * 

IF S<A-A7/3 THEN PRINT PRINT :PRINT 
PRINT "DU MUSST MEHR UEBEN!" 
PRINT :PRINT :PRINT "BENOETIGTE 
ZEIT: +TIs 

PRINT *L3SPACES](#45STDxsMINsKSEK ) 
END 


Listing 3: Multiplizieren 
138 GUN Spez ı 
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Anwendung 


{ REM x## IN-SAETZCHEN  x#8 | 188 For rı 02 758 
2 REM »UEBUNGSPROGRAMM FUER*+ | 4118 PRINT CHR® (147):PRINT 1PRINT tPRINT 4949 | 
3 REM #= GRUNDSCHUELER "LISPACESI"K"IN"YEX+Z "=" INPUT Q 
4 REM =» VC-28, C-64, C-I6 + | 112 PRINT SPCCI®):PRINT "R="sıINPUTR , 1935 
5 REM # SUSANNE JUNGNIKL %# 128 IF Q=Y AND R=2 THEN Kak+i 2883 | 
6 REM = REINERSDORF 993 » 125 IF Q»Y AND R=2 THEN S=S+1 2143, 
7 REM «ss A-7522 ... | 138 IF 0=Y AND R=2 THEN PRINT PRINT ı 3321 
8 REM #+ 0043/93324/30597 +: | PRINT *L6SPACESIRICHTIGI*160T0 270 | 
158 IF i=2 THEN G0TO 288 1815 
18 PRINT CHR# c147) 984 
15 PRINT SPRINT "LBSPACESIKANNST DU DIE 3366 inne en Sa TERRENT RUTTTTTTER 
LSSPACESIIN-SAETZCHEN?" 
2® PRINT ıPRINT "L2SPACESIBELEISE ESI" 1555 er a  &! ga a A ER E 
BEP OR-T.3 T0-EBBUSNERT see | 164 IF @c>Y AND R=Z THEN PRINT :PRINT ı 4038 | 
= a Ken => PRINT PRINT *RECHHUNG FALSCH! * 
“ [2 
27 PRINT CHRS (147):PRINT :PRINT "GIB 2881 | or le ee ge | 
ALS STARTZEIT" en - 
28 PRINT :PRINT "L2SPACES 1000008 2011 | zo mDs ed PRINT "LEIDER UIEDER 2084 
LBSPACESJEIN: ": INPUT TIS LSCH 
38 PRINT CHR® <147):1PRINT * WAEHLE aus: esse | 20 PRINT SPRINT "RICHTIG WAERE GELESEN: 2386 
i | a1 PRINT 153 
31 PRINT :PRINT "Fi----- 2.8.1 3 ınaa » our | ee See ea PRINT X"IN’YaK+Z"="Y" 2607 
VEBouu we ” 
= Zatnd ET . ET a: : nn nn A ge 238 FOR T=1 TO 4808:NEKXT 16070 268 1523 
34 PRINT 1PRINT *FS----- 2.B.ı 3 INSO * 2639 2 eh TO’ 18801 NEXT > 
,EI >22 nn—nl “ 
BES RRINT SET. SE ante ee 308 PRINT CHR# (147):PRINT :PRINT "DU 4531 
39 GET AstIF As="" THEN 39 1526 HAST"W*RECHNUNGENL2SPACES] 
48 IF ASC (M%)<133 OR AMSC (M#)>139 THEN 2651 GERECHNET. | 
33 305 PRINT :PRINT "DAVON WAREN z#"K"ss 2736 
41 IF ASC tAs)=136 THEN 338 1404 L3SPACESIRICHTIG!* 
42 LET K=D 817 318 IF K=W THEN PRINT :PRINT tPRINT ı 2581 j 
45 PRINT :PRINT :PRINT "WIEVIELE 54868 PRINT "L7SPACESIBRAVO!!!* 
RECHNUNGENL4SPACESIWILLST DU 322 FOR T=1 TO BOO8:NEKT :60T0 38 1402 
MACHEN?" : INPUT LI 338 PRINT CHR® (147) 254 
46 FOR J=t TO W s24 322 PRINT :PRINT tPRINT *BENOETIGTE 2853 
47 Amar 275 ZEIT: "TIs 
48 IF J=ll+1 THEN GOTO 388 1851 348 PRINT "L3SPACESI(#4STD+#MINS#SEK) 1773 
493 ON ASC (As)-132 GOTO 30,33,60,330,65 2458 358 PRINT tPRINT PRINT "INSGESAMT HAST 2229 
SO X=INT < RND <1)49+2) 1631 Du” 
Si Y=INT € RND c1)29+2) 1832 352 PRINT ıPRINT *LASPACESI* 1717 
S2 2=8:60T0 186 sie A"RECHNUNGEN"® 
55 X=INT € RND (1)29+2) 1831 355 PRINT :PRINT "GERECHNET." 1894 
SE Y=INT C RIND cl)s28+2) 1538 368 PRINT :PRINT "DAVON WAREN ##"5*4+ 3127 
59 2=8:60T0 188 eis LASPACESIRICHTIG! 
68 X=INT C RND <1)29+2) 16831 365 IF S=A THEN PRINT :PRINT "DU BIST 4757 
BI Z=INT C RND (1)29+2) 1833 | RECHENFEISTER III ETITTTERITETRERIENT 
62 IF Z=>K THEN GOTO 68 2 | ı1# 
63 Y=INT C RND (1)228+2):60T0 180 2213 | 268 IF S>=A-A/3 AND SA THEN PRINT ı azıı 
65 K=INT C RND (1)49+2) 1a | PRINT "DU HAST GUT GERECHNET! * 
66 Z=INT ( RND (1)#3+2) 1633 | 378 IF SiA-n/3 THEN PRINT :PRINT "DU 4582 
67 IF Z=>KX THEN G0TO 65 ı2ı7 | SOLLTEST FLEISSIG LEBEN! !* 
68 Y=INT € RND <1)29+2):60T0 188 208? | 308 ero 128 


Listing 4: Dividieren 


Brandheiße Knüllerpreise 


Commodore 54, WC 1541 Star-Drucker $G-10 mit Star- oder 


Reparatur C64 ................. REN a 


(Festpreis inkl. Bauteile) 


5X-54 (Dommodare Emecutive) F A 
Commadere 128. Floppy 1571, Monitor 1902 
[Bestelservice) 
Lommodane PC 10258 K 
Drucker MPS 501 


n49,— 
49- 


389,— MPS802 690, 


Weskmarn-Imertaoe 

ao. mit Gerätz-Intert. 6423 
Star-Drucker SG-15 mit Star- oder 
Wesemara-Interlace 

dio. mit Gtehtz-Intert. 8423 


MPS203 519,— DPS1120 1049,— 
Farboicimer 1520 

Epnson-Drucker RX 60 + Görltz- 
Grafinintertace 8422 

dio. + AXBOFT+ 

dio, + FXB5 

oo. + FX 105 

to. + JX&0 

0. + LXBO 

Epson-Drucker LX 90 mit Imerlace + 

Kabel tur &4 99,— Scotch 3M DSOD 

Traktoraufsatz LUX 80/90 75,— 10058 

Alle Preise inkl. MwSt. zuz. Versandkostargauschaie (Warenwert bis DM 1000, /darüber): Vorauskasse 
(DM 8.—/20.-—). Nachnahme (DM 11.20/23.201, Ausland (DM 18,—/30,—). Lieferung nur gegen Vor- 
auskasse oder per NN; Ausland nur Vorauskasse. Gesamfgreisliste gagen Freiumschlag. 


CSV RIEGERT 


Schoähotste. 5, 7324 Rechberghausen, Tal. [0 71 61) 5 28 89 
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Stär-Drucker SG-10 C {anschiuäfertig 
an &4) 

Fartemonitor Commodore 1702 
Akustikkappier Ditappon 5210 + 


Reparatur Diskettenlaufwerke .......... DM 120,— 
(Kosten für Motor bzw. Kopf werden 
separat in Rechnung gestellt) 


Rollmaus für den C64 .....ccccnnnnnnennnnn- DM 195, — 


Büro für Software- und Hardware-Entwicklung, 
Hackstückstr. 11, 4320 Hattingen, 
0 23 2415 22 40 


W. DEDERICHS 


Disketten 
Scotch IM SSOD 


rn EDMECEMILTERWERLD 2OAM 


Trigonometrische Rechnungen 
sind ein Alptraum jedes „Nicht- 
Mathematikers", Wer nicht daran 
scheitern, sondern den Stier bei 
den Hörnern packen will, kann 
seine Ergebnisse auch vom Com- 
puter nachrechnen lassen und so 
die Fortschritte ständig kontrollie- 
ren. "Trigonometrie’ von Michael 
Wegmer bietet diese Möglichkeit. 
Das Programm berechnet nach 
Eingabe der Winkel und Seiten- 
längen Dreiecke aller Art. 

Nach dem Start wird zuerst nach 
der Anzahl der bekannten Winkel 
und Seiten gefragt (Zeile 100 bis 
630). Mögliche Eingaben sind: 
zwei Winkel und eine Seite, ein 
Winkel und zwei Seiten und kein 
Winkel und drei Seiten. Macht 
man mehr Angaben als zur Be- 


Anwendung 


Dreiecks- 
verhältnis 


Trigonometrie ist 
Prüfstein vieler 
Schülerkarrieren. Mit 
einem Programm kann 
man die eigenen 
Rechenversuche 


überprüfen, 


rechnung nötig, beispielsweise 
zwei Winkel und zwei Seiten, 
weist das Programm darauf hin. 

Danach werden die Größen der 
Winkel und Seiten eingegeben. 
Als letzte Angabe benötigt das 


Programm die Namen der Punkte, 
an denen die Winkel liegen, und 
die Namen der Seiten. Zugelassen 
sind hier nur die Buchstaben a, b 
und c. Wie in der Geometrie üb- 
lich, liegt die Seite a dem Punkt A 
gegenüber. Entsprechendes gilt 
für die anderen Seiten. 

Nun werden die Berechnungen 
durchgeführt (Zeile 640 bis 1360). 
Hierbei kommen hauptsächlich 
der Sinus- und der Cosinussatz 
zum Einsatz. Ausgegeben werden 
schließlich: 

— alle Seitenlängen und Winkel 
Fläche 

Umkreisradius 

Inkreisradius 

Höhe 

Der Ausgabeteil liegt in den Zei- 
len 1370 bis 1540. (M. Wegmer) 


def fn r(x)=int (x"1808008+.5)/100008 

poke 53272,23t:poke 53280,5:poke 53281, 

Stprint *Lcbm 6)" 

def fn bix’=C-atn (x/C sar Ci-xsx)rix® 
1IIIIELeHC IL IE-CHLO+2IR-CHC’1)-[pil/2e 
(x=1) 

def fn alx)=et-atn © sar Ci-xuxd/Carc® 

OYIIIECKC>O)-[pilzix<B)-Lpil/2scx=B) 

print "Lelr,cbm a,38shift #,cbm s]"ı 

print "Ishift -,38cbm +,shift -)"7 

print "Ishift -,cbm +,rus,cbm a, 

34shift #*,cbm s,0ff,cbm +,shift -)"3 

print *ishift -,cbm +,rus,shift -, 

Aspaces ITIshift-space JIRlishift-space]l 
[shift-space IGlshift-space 0 
Ishift-space INishift-space]O 
Ishift-space JMishift-space JE 
Ishift-space ITlshift-space]R 
[shift-spacelllshift-space lElSspaces, 

shift -,o#f#f,cbm +,shift -]* 

print *"[shift -,cbm +,rus,cbm z, 

34shift xz,cbm x,off,cbm +,shift -1"7 

print "[shift -,38cbm +,shift -) "7 

print "Ichm z,39shift »,cbm x]* 

print "[2öspaces IGeschrieben von 
Michael Legmer 1983” 

print *"L2doun]Dieses Programm 
berechnet Ihnen Winkel," 

print *Seitenlaensen, Fiaeche, Hoche, 
In- und" 

print "Umkreisradius von beliebigen 
Dreiecken."idim a(3),b(3),28(3),b#(3) 

print "[2doun]Bitte geben Sie die 
Anzahl der Ihnen* 

print "bekannten blinkel ein ! *r 

sat aßtiif a®cl"®* or a$)"2" then 270 

print as 

print *"Ldoun]Bitte geben Sie die 
Anzahl der ihnen" 
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2482 
3237 


7865 


6549 
3333 
743 
3372 


3733 


| 


88308 


‚00310 


e08329 
00330 


00348 
89358 
09368 
00378 
saI9en 
009390 
80428 
90410 


0428 


00430 


print "bekannten Seiten ein | "7 

set bSiif bE<i"t* or bE>"3* then 3108 

print bStx=val (as)iymyal (b#) 

if x+y<3 then print *"Lcir ‚rus]Zu wenig 
Eingaben !!!"ıgoto 250 

if x+y=9 then 380 

y=3-xtif y=8 then y=lix=2 

print *"tdoun)Es reichen auch "x "Winkel 
und’y"Seite"stif y>i then print *n* 

print :for.i=! to SB9Bınext 

print *"lcir)*"z7iif x=0 then 4208 

if x=2 then print "Bitte geben Sie die 
zwei Winkel in Grad ein ItdounJ"igoto 

410 

print "Bitte geben Sie den einen 
Winkel in Gradein !tdoun]"” 

for i=1 to xiprint "Winkel"istinput 

ati)ınext 

if y«i then print *l2dounlBitte geben 
Sie die eine Seite in cml4spacesjJein 
Ifdoun]*tgoto 459 

if y=2 then print "[2doun)]Bitte geben 
Sie die zwei Seiten in cml3spacesjJein 
!fdoun]l*":goto 459 

print "t2down Bitte geben Sie die drei 
Seiten in cmt3spaces]Jein !ldoun]" 

#or i=1 to yiprint "Seite *"irtinput 

bii)inext 

tor i=I to yisif bti)c="® then 518 

next :if x=8D then 3390 

for J"1 to “tif acj)<c“B or atj)>=180 

then 518 

next 

gyoto 538 

print "leir,rvs)Falsche Eingabe!"ıif 

x=8 then 428 

»oto 2398 

if x=8 then 538 

print "I2dowun)Bitte geben Sie den 


00350 


| 00560 
80578 
20980 
09590 


09600 
20818 
2065208 
08630 
006408 
90850 


89658 
006879 


006938 
06908 


, 80780 
08718 


087208 
00730 


00749 
00758 
007609 


e0770 
oe7a0 
| 00730 
| e0220 
vesıo 


80820 


sa2e38 


20848 
09950 
00960 
809878 
en980 
09838 
009989 
vo910 
09920 
88930 


08940 


80959 


08960 


09970 


08900 


09399 
81908 
819810 
81828 
91038 
81049 
81058 
81068 


Anwendung 


Namen des Punktes” 
print *ein, an dem der jeueilige 
Winkel liesttldoun]” 
tor i=1 to x:tprint "Winkel’i’? "7 
get asıif ascC"a" or aS>"c" then 570 
print aStias(li)=aßinext 
print "L2doun]Bitte geben Sie den 
Namen der jeweiligen"? 
print "Seite einildoun]* 
or i=1 to yiprint "Seite "i"? "3 
get bs:if bSs("a* or b#>"c" then 820 
print bE:bS(Ci)="b$inext 
on y goto 630,748,1128 
sosub 119B:u=-18B-ali)-al2)tif wi=d 
then 1376 
sgosub 1218:903ub 1248 
it (p=1 and q=2) or (p=2 and arl) then 
ciruisoto 788 
if (p=2 and q=3) or (p=3 and a=r2) then 
almu:soto 788 
if (p=1 and q=2) or (p=3 and qri)> then 
bi=u 
on r soto 718,720,7308 
v=a/sin (alstpi]l/180)tb=vssin (bislpi] 
/188>1c"yssin (clsLlpi)/180):ig90to 1398 
v-b/sin tbis[pi)/19®)ta=uvssin (als[pi) 
/188)tc=vesin (cislpil/18B8)tgoto 1398 
u=c/sin tci#[pi)/18B)ta=mussin (als[pi] 
/180)tb=v#sin (biaLlpilj/188>):goto 1390 
if asti>"bsC1) or astl)"b3(2) then 848 
gosub 1218:g0sub 1198:90sub! 1278 
usbei)abCi)+bc2)Hb(2)-Zub(i)ab(2)scos 
at1i)>s[pil/198):if uc=d then 1378 
on p goto 789,7939,80808 
a,ssar (u)ıgoto Bid 
b=sar (w)tgoto 9208 
ce=sar (u)igoto 838 
u=a/sin (al#[pi]/1B0>:bi=fn bib/u)e 
189 /Lp iltc1=180-al-biigoto 1398 
usb/sin (bi#[pi]/1BB)tal=fn bCa/u)s 
180/Lp 1Jtic1=1808-a1-bitgoto 1398 
u=c/sin (c1#[pi1/18B08Y):al=fn bla/u)e 
180/Lprijtb1=188-al-clıgoto 1399 
gosub I2ld:g0sub 11808:90sub 1270 
if r"p then 9908 
on p goto 878,890,910 
usa/sin Calztpi)/180):if w>® then 958 
goto 19378 
w=b/sin Cbi#Lpi)/198):i# w>d than 970 
soto 13708 
u=c/sin (elxlpi]/1iBB):Tif w>8 then 938 
goto 1378 
it r=iI then al*#n b(a/u)#189/[pilıbi" 
180-al-ci:!b=-ussin tbil#Llpi)1/189)t90to 
1399 a 
bi=sfn bib/u)#1898/Lpi)tal=189-bi-ciia= 
wssin talstpi]l/188):ig0oto 1398 
if r«2 then bi=#n bib/u)#189/[Lpil)ici® 
180-al-bitc=ussin (cizeLtpil/180):g0to 
1398 
ei=fn btce/w)#e180/Lpiltb1=-18B8-al-clib=- 
ussin (bi#[lpi)/18B8):90to 13998 
if r=1 then al=fn b(a/u)#180/[Lpilici= 
189-al-bitc=ussin (c1i#[pi)j/1898)ı50t0o 
1399 
ei=sfn bice/u)2180/Llpiltal"188-bi-ciıa" 
wssin (Cal#[pi)/188):90t0o 1339 
on pr goto 10809,1828,1048 
w=a/sin (als[pi)/18B)11f 
goto 1378 
w=b/sin (bis[pil/18B>H: if 
soto 1378 
w=c/sin tci»tpi 1/1889: if 
soto 1378 
if s=1 then al=fn b(»/w)321808/Lp1)jtbi= 
188-alrciib=-ussin (biz[pi)/iBO)ı90t0 
1399 
bi=fn bib/u)#188/Lpiltai=199-bi-cita" 


w>d then 1086 


w>8 then 1188 


“>08 then 1868 


Bu MOMEBLSNPITERUTR.D 20H 


4032 


2320 
2387 
1385 
39335 


ı291 
2165 
2365 
1487 
1355 
3802 


1247 
2394 


1287 
6273 


8276 


6273 


2530 
20860 
907 


1362 
1303 
1306 
13093 
5403 


s412 


5486 


Bose 
898 
1251 
2678 
827 
2874 
s2? 
2941 
827 
6904 


5499 


70825 


5645 


6977 


55864 


1315 
2664 
s27 
2732 
627 
2739 
827 
6996 


5499 


81118 


vı1l2D 


01138 
d1140 


91158 
81168 


81178 
81199 
01198 
01208 
81210 


31228 
81238 
e1249 
81250 
812608 
81270 
81286 
81298 
81308 


81318 
81328 


813938 
81348 


081358 
81368 
01378 


81388 
81398 


81408 


81410 


81420 


81438 


81440 


81450 


81470 


81480 


81498 


81508 


81518 


81528 


81530 
813548 


wisin (al«[Lpi)l/i@d):g0oto 1398 
if s=2 then bi=fn bib/W>#188/LpilJtici® 
188-al-blic=mussin (c1i#tp1i11/188):goto 
1398 

ei=fn b(ie/u)2188/Lpi)ıbi-1Bd-al-clıb= 
ussin (bis[pPi)/i8B8):90t0 1399 

if s=2 then bi=fn btb/u)e188/Llpil)tai» 
180-c1I-biia=ussin (Cals[pi)/190):90t0 
1398 

al=fn b(ia/w)#2180/Lpi)ibi1=188-al-ciıbe 
wssin <bi«[Lpi)/188)190t0o 13998 

sosub 13001 a22=Cbrb+tcsc-asa)/l2rbsc)rif 
abs (a2)>=1 then 123708 

alsfn ata2)#1808/Lpi] 
be=lasascsc-b+b)/Ll2rasc)tif abs (bE)>= 
i then 1370 

bi=sfn alb2)s21iß8/Lpi) 
cAmlasarbeb-cec)/lDrarb)iif abs (c2))= 
i then 1370 

ci=#n a(c2)2189/Lpiligoto 1398 

it bSCi)="a* then arb(i)ir=itreturn 

it bECt)="b* then b=ebtl)ir=Zireturn 
c*b(!)ir=3treturn 
if a&C1i)="a”" then 


if asti)="b" then 
ei=sa(1)ıp=3trreturn 


if as(2)="a” then al=a(2diq=lireturn 
if ast2)="b" then bi*a(l2)tg=2tireturn 

eilra(l2)iq=3ireturn 

if bs(2)="a" then a=b(2)ısritreturn 
if bSs(2)="b" then b=b(B)is=Bireturn 

ce=b(P)is=3treturn j 

tor i=1 to 3t1if bSCi)=*a" 

soto 1328 

next 

or i=1 to 3:14 bECI)="b" 

goto 1348 

next 

#or i=1 to 3tif bE2Cli)="c" then c=bCi): 

goto 1369 

next 

return 

print "tcir ‚2doun]Mit diesen Werten 
kann kein Dreieck be-"” 

print *rechnet werden |!!’:ı50t0o 1510 

print "Lcir ,‚douwn]Seitent" tab(1S>* 
{rvsJa=loff)" fn r(a)*"cm“ 

print tab(15>"Idoun,rvs]b=[off]" fn 

rcb>"cm" 

print tab(15)"ldoun,ruslc#=lo#ff]” #n 

rte)”’cm" 

print *EdounlWinkel:* tab(IS)"Irvs] 

alpharloff]"” fn rtal)’Grad*” 

print tab(15>*"ldoun,rvs)beta =[off]” 
#n rtbi)"Grad”* 

print tab< 19) *"Ldoun,rvs Jgamma=Loff]"* 

tn rtceil)"Grad” 

print *"EdounjFlaschet*” tab{15>*Ilrvus ]A= 
tof#f]" fn rt,S5sasbssin (c1s[pi]/ 
180)>)*"cmt2* 

print "LdounlUmkreisradiusi" tab(15)"* 
[rvalr=eloff]" An rta/sin (alslpi)/ 
189) 72>"cm* 

s=(atb+tc)/@tprint *Ldoun] 
Inkreisradiust" tab(1S>"Lrvs J@a=Loff]")7 

print fn rt tan C(Cal#[pi)/36B)r15- 

a))"cm" 

erint "LdouniHoeheti* tab<1IS)*LrvsiIhc- 
to#ff]*”} 

print fn rt sar <bsb-Cbscos Calstpi)/ 
189) )>#cCb#cos (CalsLpi)/189))))"cm" 

print "l2dounlisllen Sie noch weitere 
Dreiecke be-[dspacesJrechnen lassen ? 
u } 

get asıif asc)"”j" and as<)"n" 
1320 

if a@=*j" 'then run 

erint *"Lcir]*tipoke 53272,21tend 


alrali)ip=ltreturn 
bi=a(li)ip=sZ2ireturn 


then a=sbci>: 


then b=bcidı 


then 


1154 
16897 
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Zur Dateneingabe ist im Basic der 
Befehl INPUT vorgesehen. Doch 
der läßt unerwünschte Cursorbe- 
wegungen zu, die das schönste 
Menü zerstören. Bei der Eingabe 
von Zahlen werden dummerweise 
auch Buchstaben angenommen. 
Nach dem Drücken von Return 
steigt das Programm dann mit 
TYPE MISMATCH ERROR aus. 

Die neue Eingabe-Routine besei- 
tigt diese Mängel und bietet eini- 
ge Extras. Mit SYS 49152,X,Y,BE- 
MERKTEXT,LÄNGE,VARIABLEN- 
TYP,VARIABLE werden Strings 
oder Zahlen an einer frei wählba- 
ren Bildschirmstelle übernom- 
men. X und Y stehen für die Koor- 
dinaten, an die der Bemerktext 
geschrieben wird. Er kann auch 
als Stringvariable angegeben 
werden oder ganz entfallen. Da- 
hinter steht in eckigen Klammern 
das Eingabefeld. Seine Größe 
wird durch LÄNGE bestimmt Es 
darf nicht über den rechten Zei- 
lenrand hinausragen. Bei VARIA- 


eingaberoutine 
start mit 
sys 49152,x,y,bemerks, 


0210 frmevi 
0220 sid 


ur san nung 
SIERBIIEESS 
Ss #3 #3 
AR OSAOHSA 
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0230 ; cursor positionieren 
“0 


Basic- 


Erweiterung 


Input mit 
Komfort 


Der INPUT-Befehl des 
C'64 hat Schwächen. 
Jürgen und Roland 

Hank wollen sich damit 

nicht herumärgern und 

haben kurzerhand eine 
bessere Eingabe- 


Routine geschrieben. 


BLENTYP=0 wird eine Stringva- 
riable übernommen, bei Typ=1 
eine Realzahl. Die Eingabe wird 
bei der angegebenen Variable 
abgelegt. Innerhalb des Eingabe- 
feldes bewegt man sich mit 
[RIGHT] und [LEFT). [DELETE] 
und [INSERT] funktionieren wie 
gewöhnlich. Mit [HOME] wird das 
Zeichen unter dem Cursor ge- 


laenge,typ,variable 
.08 

-ba 8000 
.de 83% 
.de 3334 
.de #3e 
.de s331 
.de 5340 
.de 5341 
.de 542 
„de #343 
.de 8344 
.de #345 
.de 9346 
.de Saefd 
„de %b79e 
.de sf1d2 
.de #11r0 
.de $Sad9e 
.de 54272 


BRSRBA SN8 
8827 


Jar chkcom 
Jjsr getbyt 


Jjsr curset 
jsr chkcom 


IDEE NESENP LTE SALD. 2 


7 
söas8sss98 


25 
5383832232838 


gag83 


8 
8 


löscht. Die [CLR}-Funktion ist auf 
die Eingabezone beschränkt, Bös- 
willige Zeitgenossen können den 
Biläschirmaufbau nicht verhun- 
zen, denn Cursorbewegungen 
nach oben und unten werden 
blockiert. 

Bei der Stringeingabe ist jedes 
sinnvolle Zeichen zugelassen. 
Wird eine Zahl erwartet, so wer- 
den nur die Zahlenzeichen, das 
Minuszeichen, der Dezimalpunkt 
und das „E" für die Exponential- 
schreibweise akzeptiert. 

Zur Vorgabe einer Antwort muß 
vor dem SYS der erwartete Text in 
die spätere Eingabezone ge- 
druckt werden. Nun nur noch die 
Return-Taste gedrückt, und schon 
ist die Äntwort im Kasten. 

Mit SYS 50208 wird der neue 
Basic-Befehl +] definiert. Das 
Eingabe-Programm wird jetzt mit 
X,Y,BEMERKTEXT,LÄNGE, 
VARIABLENTYP,VARIABLE auf- 
gerufen. SYS 50219 schaltet diese 
Betriebsart wieder aus. 


aa | 


0340 ; bemerktext uebernehmen 
jer frmevi 


e8 


0370 


ida (622),y 
jer bsout 
iny 

be bul 

lda wär 
jsr bsout 
jsr curget 
stx cursory 
sty cursorx 


R 


Ida 13 
bne bus 
jsr $addd 
jsr ®bib8 
Idx #64 
bre bu? 
Idx 465 
bre buß 
jp *b248 
jsr chkcom 
Jar getbyt 
cpx 80 
beq bu? 
stx endlaenge 


8 
© 


Basic- 


Erweiterung 


COF- AD 41 03 0680 Ida cursorx 1420 ; naechstes zeichen einlesen 
c062- 18 06% elc und cursor setzen 
0063- 6D 3% 03 0700 adc endiaenge CoFc- CA 1430 13.2 dex 
0066-693 27° 0710 emp 039 | COFD- DO dB 1440 bne i3.3 
CO&B- BO ES 0720 bes bu? x 
COSA- AR 0730 = COFF- A9 03 1450 i4 1da #3, 
COEB- ME .42.03 0740 en C101- 85 99 1460 sta #99 
ENGEN, C103- 20 3E Fi 1470 jar $fi3e 
COGE- 20 18 C4 0750 Jjsr curset C106- A2 00 1480 idx #0 
C071- A9 SD 0760 lda #rür C108- 96 9 1490 Eee 
6073- 20 D2 FF 0770 jsr bsout C10A- C6 03 1500 dee 211 
C076- 20 FD AE 0780 jsr chkcom 
c10C- C9 20 1510 cap #32 
07% ; variablentyp. Osstring, C10E- 00 02 1520 bne i6 
>O=numerisch 
C110- A9 A4 15% lda #164 
C079- 20 9E B7 0800 jur getbyt C112- C9 A4 1540 i6 cap #164 
C07C- BE 45 03 0810 stx vartyp C114- FO 0B 1550 beq i7 
0830 a C116- 20 IC C4 1560 jsr curget 
u C119- Bi DI 1570 ida (8d1),y 
CO7F- A9 00 0840 ida C11B- 09 80 1580 ora #%210000000 
coBi- AO 32 0850 ldy #50 c11D- 91 DI 1590 sta ($d1),y 
c08@3- 99 45 03 0860 cI sta puffer-1,y ciif- Do 05 1600 be id 
COBE- 88 0870 dey C121- 20 D2 FF 16i0 17 jer bsout 
C087- DO FA 0880 bne cl C124- C6 D3 1620 dec 211 
C089- 84 C6 08% sty %c6 C126- AS C6 1630 iB lda $c6 
Co8B- CB 0900 iny C128- FO FC 1640 beq i8 
CO8C- BC 3F 03 0910 sty aktlaenge C12A- 06 C6 1650 dec *%c6 
CoBF- BC 30 03 0920 sty position C12C- AD 77 02 1660 ida #277 
c092- A9 80 0% lda #128 1 cı7r- 092 1670 emp ar"r 
C0O9M- BD BA 02 0940 sta 650 | c131- 0 06 1680 bne i9 
0950 ; alten text uebernehmen ) C123- 2 EI C3 16% jsr beep 
c097- AE 42 03 0960 ldx cursory C136- 4C FF CO 1700 Jjmp i4 
CO9A- AC 41 03 0970 Idy cursorx C139- 8D 40 03 1710 ig sta neuzeich 
C09D- 20 18 C4 0980 jsr curset C1%X- C9 0D 1720 cap #13 
COAO- A9 03 0 Ida #3 ) C13E- D0 03 170 bre i1O 
COM- A000 1010 Idy #0 | C143- AC 3D 03 1750 i10 ldy posit 
E 2 y position 
COA&- 20 3E Fi 1020 il Jsr sf1l3e C146- 59 45 03 1760 lda puffer-i 
‚»Y 
COAI- 39 46 093 1030 sta puffer,y C149- @D 3E 03 1770 sta altzeich 
COAC- CB 1040 iny C14C- AD 40 03 1780 lda neuzeich 
COAD- CC 3 03 10% cpy endlaenge 1790 ; insert 
COBO- DO F4 1060 bne il Ci4F- C9 94 1800 cap #148 
COB2- AE 42 03 1070 ldx cursory C151- DO SB 1810 bne i15 
COBS- AC 41 03 1080 ldy cursorx C153- AC 3C 09 1820 ldy endlaenge 
COBB- 20 18 C4 10% jar curset C156- CB 1830 iny 
COBB- A2 00 1100 ldx #0 C157- CC 3F 03 1840 cpy aktlaenge 
1110 ; blanks am ende streichen C15A- DO 06 1850 bne i12 
C1SC- 20 E4 C3 18950 jsr beep 
COBD- AC 3C 03 1120 ldy endlaenge C1SF- 4C FF CO 1870 jup i4 
C0CO- B9 45 03 11% i2 ida puffer-i,y C162- 20 IC C4 1890 i12 jsr curget 
c0C3- C9 20 1140 cap #32 C165- BE 44 03 18% stx cursoryi 
c0CS- DO 07 1150 bne i3 C168- 8C 43 03 1900 sty cursorxi 
COC7- 8A 1160 txa C16B- AC 3F 03 1910 ldy aktlaenge 
coc8- 99 45 03 1170 sta puffer-I,y C1i6E- CC 30 03 1920 cpy position 
COCB- 88 1180 dey c171- FO 0C 1930 beq i13.1 
COcC- DO F2 11% bne i2 C173- 88 1940 113 dey 
COCE- C8 1200 i3 iny S 
COCF- BC aF 03 1210 sty aktlaenge nen 1 ey” 
Cop2- AD 45 03 1220 Ida vartyp C17A- CC 30 03 1970 epy position 
ConS- FO 28 1230 beq i4 C170- DO F4 1990 bne i13 
1240 | auf numerisch pruefen | C17F- A9 20 19% 113.1 ida #32 
C0D7- AE 30 03 12590 ldx endiaenge CiB1- 99 45 03 2000 sta puffer-I1,y 
CODA- BD 45 03 1260 13.3 lda puffer-1,x C184- AE 42 03 2010 ldx cursory 
coDD- FO 1D 1270 beq i3.2 C187- AC 41 03 2020 ldy cursorx 
CODF- C9 20 1280 cap #32 CiBA- 20 18 C4 20% jsr curset 
COEI- FO 19 1290 beq i3.2 c18D- AO 00 2040 idy #0 
COE3- C9 2D 1300 cap #-' ti8F- BI 46 03 2050 i14 ida puffer,y 
COES- FO 15 1310 beq i3.2 c19%2- DO 02 2060 be 114.1 
COE7- C9 2E 1320 cap #,' C194- AI 20 2070 lda #32 
cOEI- FO 11 1330 beq i3.2 C19%6- 20 D2 FF 2080 i14.1 jsr bsout 
COEB- C9 45 1340 cap WE! c199- c8 20% iny 
COED- FO 0D 1350 beq i3.2 CiM- CC 3% 03 2100 cpy endlaenge 
OOEF- 09 % 1360 emp #0" c190- 10 Fo 2110 bne i14 
COFI- % 06 1370 bce i3.1 CIIF- EE IF 03 2120 inc aktlaenge 
cor3- C9 39 1380 cap WI! C1A2- AE 44 03 21% ldx cursoryi 
Cors- Fo 08 13% beq i3.2 
COF7- %0 02 1400 bee i2.2 C1AS- AC 43 03 2140 ldy cursorxi 
C1AB- 20 18 C4 21% Jjsr curset 
COF9- 40 99 AD 1410 i3.1 jup sad99 CiAB- 4C FF CO 2160 jep id 


;type mismatch error 


NUN SDREISNILSTERWOND COM 


2170 ; deletei 
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Basic- 
Erweiterung 


jp id 


lda neuzeich 
#157 
127 
position 


Rh 


; 
Saa328 


S 
' 
8 


8 
& 
' 
8 
° 


i25 
beep 
i4 


position 
aktlaenge 
i26 

w32 
126.1 
altzeich 
bsout 
211 

211 
position 
i4 


ös Bat 53° 
888 238 
EL EIS TIERE 
f 
78 88 38 


puffer-i,y 


aktlaenge 
i18 
<ursory 
cursorx 
curset 

“ 
puffer,y 
i18.2 


283 3 88 
SEITHEERLER 
8 88 
BauSS DBBESSEESE SSSUSSSUSEO ABS 


lda neuzeich 
cap #29 

bne i30 

Idy endlaenge 
cpy position 
beq i28.1 
bcs 

jer 

jap 

Idy 

<py 

beq 

lda 

jsr 

ine 

Jap 

129 ida 

sta 


8 
383 
88 


3 
° 


8 888888 8 1 
ZESNERHENE NETRREHNSESE TEBERHEILRE HTR BB43 7 


ABBBAMSEIRE ASLIGRELE ERRRIBEETERR ENIBAZTB 3 
R8 8378 8888 


Jap 
; andere taste 
i30 


s38389 29323 


8 


ida 
i32 cap 
bes 
i33 Jar 
mp 
134 cap 
bee 
cap 
bee 
cap 
bec 


emp 
bee 
eng 
bec 
jsr 
Jmp 
ldy 
beq 
emp 


beq 
ep 
beq 
cap 
beq 
cap 
beq 
cp 
bec 
cap 
bee 
beq 
Jar 
jwp 


7 8288 
R 
° 


Verraranne 
ZUSSUUBSE BEUBERSSSEIINSSE RIRBERR 


8 
‘ 
88 


20 
4 
20 
B8 
BE 
BC 
ACc 
88 
B9 
Er) 
c8 
cc 
Do 
AE 
ACc 
20 
ao 
B9 
DO 
A9 
20 
c8 
cc 
DO 
AE 
AC 
20 
CE 
CE 
4 
AD 
c9 
Do 
AE 
ACc 
20 
ac 
a3 
20 
88 
DO 
4 


IF OREHSARSEE TENSARSR 8 BRATE5AATN 


8 


ı delete? 
121 


JUROROSSED BUSBERSSRE RESERESSS SERSBFRRBEN SS 


8 
Ri 


aktlaenge 
curget 
cursoryi 
cursorxi 
position 


ol: 


ShaNSIHRG 
2887 


8 
= 
' 


BERSWITRRERGE 


8822833 38 
SIRR 
ELLI 
53583833333333 33BE538388 83833832 
ATREBZESITAENS BEAATREEL ANTIFFATENES 
338 


HH 


8 
v 
& 


puffer,y 
puffer-1,y 


878 8 
SSBSBESESSEEN SBUSDBSSS SSBGSDSS SUNG BÜBDS 


EROBEDINE 


38 
3 
° 
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DIEBE NELSH TERN ER. DOM 


Basic- 


Erweiterung 


3720 i35.1 c3D1- 85 49 44% sta $49 
G19- A099 37% ldy endlaenge C303- 84 4A 4500 sty $4a 
c31C- c8 3740 iny c305- A5 0D 4510 da 13 
c31D- CC 3F 03 375% cepy aktlaenge C3D7- DO 08 4520 bre i46 
C320- DO 0E 3760 bne i36 C309- AS 49 4530 lda $49 
C322- AC 3F 03 3770 ldy aktlaenge C3DB- 20 DO BB 4540 jsr $bbdO 
c325- CC 30 03 3780 cpy position C3DE- 4C B5 C3 4550 jp i44 
az = > = > bne er stype mismatch error 
sr 
CRD- 4C FF CO 310 er C3EI- 4C 99 AD 4560 i46 jup 82499 
C3%0- AD 30 03 3820 i36 1da posi ec 
position C3E4- Mm 22 4500 Idy #50 
c33- DD #F03° 3% cap aktlaenge C3EG- A2 00 4590 1dx #0 
C336- BO 12 3840 bes i97° ca TE re 
c338- AC 30 03 385% ldy position C3E9- DO FD 4610 ET 
C33B- AD 40 03 3860 ida neuzeich CB- ©8 4620 E 
y 
C33E- 99 45 03 3970 sta puffer-i1,y C3EC- 00 FA 4630 bis bei 
C341- EE 3D 03 3880 ine position C3EE- A9 05 4640 Ida #5 
\ C344- 20°E4 03 38% jer beep 
CBIR. AC. 99 C9: 2900 jep 138 C3F0- BD 18 D4 4650 sta sid+24 
| C34A- AC 30 03 3910 137 id iti CH3- MM 15 4660 Ida #21 
N nn CaF5- BD 05 D4 4670 sta sid+5 
| C34D- AD 40 03 3920 1da neuzeich CHFB- Ad 0 4680 Ida #160 
C350- 99 45 03 39% sta puffer-i,y C3FA- BD 06 D4 46% sta sid+6 
c353- EE 3#F 03 3940 inc aktlaenge CAFD- A9 46 4700 Ida #70 
C356- EE @M 03 3950 inc position l CHF- BD 01 D4 4710 sta sid+1 
C359- AD 40 03 3960 i38 l1da neuzeich 6402- A9 11 4720 da #17 
C3SC- 20 D2 FF 3970 jer bsout C404- BD 04 D4 47% sta sid+4 
C3SF- AD 320 03 3980 da position C407- AO 1E 4740 ldy #30 
C362- CD 3C 03 39% emp endlaenge C409- A2 00 47% ldx #0 
C365- FO 07 4000 beq 138.1 C40B- CA 4760 be2 dex 
C37- % 05 4010 bee 138.1 C40C- DO FD 4770 bne be2 
C369- CE 3D 03 4020 dec position C40E- 88 4780 dey 
5 C40F- DO FA 47% bne be2 
ee re CAi1- BC 04 D4 4800 sty sid44 
C371- AC 3D 03 4050 i39 Idy position ut x 18 D4 => art sid+24 
c374- B9 45 03 4060 lda puffer-i1,y due 4 - 
c377- 0 02 4070 bne i41 ’ umene rer 
C379- A9 20 4080 i40 Ida #32 4840 curse 
C37B- 20 D2 FF 4090 ii jsr bsout c418- 18 4850 ele 
C37E- A9 0D 4100 Ida #13 6414 40 FO FF Sa > eursor 
C390- 20 D2 FF 4110 jer bsout BB un 
C383- CE #03 4120 dec aktlaenge Sata ne a 
ee raiae I erben CA1D- 4C FO FF 4900 jap cursor 
C38C- DO 2D 4150 bne i45 4910 : als Due REN mit 
4160 ; string-variable an 2. i’ aufrufen 
newin 
C3BE- 20 BB BO 4170 Jsr $bOBb C420- A9 38 490 Ida #1,neurout 
C391- 85 49 4180 sta $49 C422- ED 09.03: 4940 sta 8208 
1393-84 4A 41% sty Ma C425- A9 C4 4950 lda #h,neurout 
C335- 20 A3 B6 4200 Jer s06a3 C427- ED 09 03 4960 sta 8309 
C398- AD 3F 03 4210 lda aktlaenge CAA- 60 4970 arg 
c398- Fo 18 4220 beq i44 4980 5 nicht mehr als 
C39D- 20 75 B4 4230 jsr %6475 ER E 
C3A0-' AO 02 4240 ldy #2 N en 
C3A2- B9 61 00 4250 i42 1da #61,y 
c345- 91 49 4260 sta (449),y C42B- AI E4 5000 ida #04 
C3A7- 88 4270 dey C42D- 8D 08 03 5010 sta 8308 
Peg = 2. Se ee Sr C430- AI A7 5020 1da #647 
C432- 8D 09 03 5030 sta 8209 
C3AB- BI 46 03 4300 143 Ida puffer,y c435- 60 5040 rts 
C3AE- 91 62 4310 sta ($862),y C436- 00 5050 hvi .by 0 
C3B0- C8 4320 iny c437- 0 5060 hv2 .by 0 
c3B1- C4 61 4330 cpy %61 5070 5 ueberpruefung 
C3B3- DO fF& 4340 bne i43 auf neuen befehl 
C385- A9 00 4350 144 1da 5080 neurout 
C3B7- &D 8A 02 4360 sta 690 C438- 20 73 00 50% jsr #73 
C3BA- 60 4370 rts C43B- FO 04 5100 beq nri 
4380 ; real-variable C43D- C9 5F 5110 put 
C3BB- A9 46 4390 145 1da #1,puffer C43F- FO 09 5120 beq nr2 
C380- 85 22 4400 sta #22 C441- 4C E7 AT 5130 nri jep $a7e7 
CaBF- AI 03 4410 Ida #h,puffer C444- 20 73 00 S140 nr2 jsr $73 
Caci- 85 23 4420 sta #23 6447- 09 49 5150 emp #1? 
C3C3- AD 3 03 44% lda aktlaenge C449- FO 03 5160 beq nr3 
C3C6- AB 4440 tay C44B- 4C 08 AF 5170 jep sat0s 
C37- A2 00 4450 ldx 80 C44E- 20 73 00 S180 nr3 jsr #73 
C3C9- 86 0D 4460 stx 13 C451- 20 03 C0 51% jsr $c003 
C3CB- 20 B5 B7 4470 jar 96765 C454- 4C AE A7 5200 jup $a7ae 
C3CE- 20 BB B0 4480 jsr $boBb 5210 „en 
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Mükra Datentechnik 79 
Okidata 
Omikron-Software 135 
Rat & Tat 57 
Peter & Partner 66 
Riegert 139 
Roos Elektronik 135 
Roßmöller Datentechnik 94 
Rushware 2. US 


Stockem Computertechnik 66 
Wedewer 99 


Zaporowski 51 


board- 


Gebrauchs- 
Anweisung 


l. Anzeigentext in die vorgedruckten 
Zeilen der Karte schreiben — 
maximal 6 Zeilen mit Anschrift 
oder Telefon-Nummer (pro Buch- 
stabe, Satzzeichen, Wortzwi- 
schenraum = 1 Kästchen). 

2. Rubrik, Bereich und Zahlungswei- 
se ankreuzen, Ädresse auf der 
Rückseite der Karte angeben. 

3. Datum und Unterschrift nicht ver- 
gessen 

4, Karte zusammen mit 5-DM-Schein 
oder V-Scheck über DM 5,— in 
Umschlag stecken. 

5. Umschlag zukleben, ausreichend 
frankieren und abschicken an: 
CW-Publikationen 
— RUNboard — 

Postfach 40 04 29 
8000 München 40 

6. Die Anzeige erscheint im nächst- 

möglichen RUNboard. 


Ich habe die Gele- 
genheit genutzt! 


gm 


Ichhhabenram_______ eine 
Gelegenheits-Änzeige im RUN- 

board bestellt. Sechs Zeilen zum 
Taschengeld-Tarif von nur DM 5,— 
inkl. ges. Mehrwertsteuer. Die DM 5,— 
habe ich der Bestellung beigelegt als 


o V-Scheck O Geldschein 


RUN 


Disketten-Service 


gm® 


Ich habe am beider 
RUN-o-thek_______ Diskette(n) 
mit den Programmen aus RUN- 
Ausgabe bestellt. 


Preis pro Diskette: DM 21,80 plus 
DM 3,— Versandkosten = DM 24,80 


O Bezahltmit V-Scheck-Nr.._____ 
Konto-Nummer 
BLZ/Geldinstitut 

© Ich bezahle per Nachnahme. 


Basic- 
Erweiterung 


00 01 02 03 04 05 05 07 CHKSUM 


20 FD 20 48 
20 FD 20 AB 
20 18 9E 
AD AS 20 B& 
AA AO 
22 20 

20 

03 

20 

DO 

B2 

00 

03 

ES 

Ag 

20 

AO 

84 

03 

03 

03 

99 

F4 

ı8 

45 

45 

03 

03 

Fo 
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183 


194 


Basic- 


Erweiterung 


DATA 32,253,174,32,158,183,138,72,32,253, 
174,32,158,183,184,168,32,24,196 

DATA 32,253,174,32,158,173,165,13,249,18, 
32,166,182,178,168,8,232,202,240,8 

DATA 177,34,32,2108,2553,200,208 ,245,169,91, 
32,218,255,32,28,196,142,66,3,148 

DATA 65,3,165,13,208,17,32,141,173,32,184, 
177,166,198,288,4,166,181,208,13 

DATA 76,72,178,32,253,174,32,158,183,224,0, 
249,243,142,60,3,173,65,3,24,199 

DATA 698,3,2081,39,176,229,169,174,66,3,32, 
24,196,169,93,32,210,255 ,32 ,253 

DATA 174,32,158,183,142,69,3,169,9,169,50, 
153,69,3,136,288,258,132,198,2008 

DATA 148,63,3,140,61,3,169,128,141,138,2, 
174,66,3,172,65,3,32,24,196,169,3 

DATA 133,153,160,8,32,62,241,153,70,3,200, 
204,68,3,289,244,174,86,3,172,65 

DATA 3,32,24,196,162,8,172,60,3,185,69,3, 
281,32,288,7,138,153,69,3,136 ,288 

DATA 242,2089,148,63,3,173,69,3,2498,49,174, 
60,3,189,69,3,248,23,201 ,32,248 

DATA 25,201 ,45,248,21,201,46,249,17,291 ,69, 
248,13,201,48,144,6,281 ,57,2408,5 

DATA 144,3,76,153,173,202,208,219,169,3, 
133,153,32,62,241,162,9,134,153,198 

DATA 211,281 ,32,208,2,169,164,291,164,2408, 
11,32,28,196,177,209,9,128,145 

DATA 209,208,5,32,2198,255,198,211,165,198, 
248 ,252,198,198,173,119,2,201,34 

DATA 288,6 ,32,228,195,76,255,192,141,64,3, 
201,13,208,3,76,113,195,172,61,3 

DATA 185,69,3,141,62,3,173,64,3,201,148, 
288,91,172,69,3,200,204,63,3,298,6 

DATA 32,228,195,76,255,192,32,28,196,142, 
68,3,149,67,3,172,63,3,204 ,61,3 

DATA 249,12,136,185,69,3,153,78,3,204 ,61,3, 
288,244,169,32,153,89,3,174,66,3 

DATA 172,65,3,32,24,196,160,8,185,70,3,208, 
2,169,32,32,219,255,200 ,294 ,60,3 

DATA 2088,2408,238,63,3,174,68,3,172,67,3,32, 
©24 ,196,76,255,192,173,64 ,3,201 

DATA 28,208,83,172,61,3,1368,208,6,32,228, 
195,76,255,192,32,28,196,136,142 

DATA 68,3,149,67,3,172,61,3,136,185,70,3, 
153,69,3,289,2084 ,63,3,298 ,244 ,174 

DATA 66,3,172,65,3,32,24,196,160,8,185,70, 
3,208,2,169,32,32,219,255,200 ,204 

DATA 68,3,208,248,174,68,3,172,67,3,32,24, 
196,286 ,63,3,206 ‚61 ,3,76 ‚255,192 

DATA 173,64,3,201,147,208,23,174,66,3,172, 
65,3,32,24,196,172,60,3,169,32,32 

DATA 2198,255,136 ,2088,250,768,127,192,173,64, 
3,281,19,209,62,173,61,3,285,63 

DATA 3,144,6,32,228,195,76,255,192,206 ,63, 


3,32,28,196,142,68,3,149,67,3,172 
DATA 61,3,136,2008,185,70,3,153,69,3,32,2198, 


255,204,63,3,208,241,169,32,32 
DATA 218,255,174,68,3,172,67,3,32,24,196, 
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6929 


71986 


6699 


65967 


76085 


7893 


7117 


8113 


7913 


7815 


6949 


5492 


6919 


6968 


8083 


8428 


6713 


6743 


7829 


7882 


7538 


6862 


vera 


7437 


rei 


8317 


7641 


841 
6693 


8277 


Erweiterung 


76,255,192,173,64,3,201,157,298,498 

133 DATA 172,61,3,136,2098,6,32,228,195,76,255, 72934 
192,172,61,3,284,63,3,208,4,169 

134 DATA 32,298,3,173,62,3,32,218,255,198,211, 7513 
198,211,206,61,3,76,255,192,173 

135 DATA 64,3,201,29,208,44,172,60,3,204,61,3, 7731 
249,2,176,6,32,228,195,76,255,192 

136 DATA 172,81,3,204,683,3,248,12,173,62,3,32, 8143 
219,255,239,61,3,76,255,192,169 

137 DATA 32,141,64,3,76,244,194,173,64,3,201, 7473 
32,176,6,32,228,195,76,255,192,201 

138 DATA 96,144 ‚22,201 ,123,144,242,281,127,144, 7235 
14 ,281,193,144 ‚234,281 ,219,144,6 

139 DATA 32,228,195,76,255,192,172,693,3,248,32, 6968 
2981 ,45,240,28,201,46,249,24,201 

148 DATA 69,249,28,201,32,249,16,2081,48,144,9, 6678 
2981 ,57,1994,8,248,6,32,228,195,76 

141 DATA 255,192,172,69,3,298,294,63,3,208,14, 7588 
172,63,3,204,61,3,208,6,32,228 

142 DATA 195,76,255,192,173,61,3,205,63,3,176, 7785 
18,172,61,3,173,64,3,153,89,3,238 

‚143 DATA 61,3,32,228,195,76,89,195,172,61,3, 7978 

| 173,64,3,153,69,3,238,63,3,238,61,3 

‚144 DATA 173,64,3,32,210,255,173,61,3,205,69,3, 7383 
2498,7,199,5,296,61,3,198,211,76 

145 DATA 255,192,172,61,3,185,69,3,288,2,169, 7198 
s32,32,218,255,169,13,32,218,255 

146 DATA 286,63,3,32,253,174,173,69,3,288,45, 8289 
32,139,176,133,73,132,74,32,163 

147 DATA 182,173,63,3,248,24,32,117,188,168,2, 7322 
185,97,8,145,73,136,16,248,208 

148 DATA 185,78,3,145,99,298,196,97,208,246, 7257 
169,8,141,138,2,96,169,78,133,34 

149 DATA 169,3,133,35,173,63,3,168,162,08,134, 7828 
13,32,181,183,32,139,176,133,73 

150 DATA 132,74,165,13,288,8,165,73,32,288,187, 7351 
76,181,195,76,153,173,168,58,162 

151 DATA 8,202 ,208,253,136,20893,250,169,5,141, 68557 
24 ,212,169,21,191,5,212,169,168 

152 DATA 141,6,212,169,70,191,1,212,169,17,141, 6944 
4,212,168,38,162,9,202,208,253 

153 DATA 136,208,258,148,4,212,140,24 ,212,96, 7789 
24 ‚76,248 ,255,56,76,,2498,255,169,56 

154 DATA 141,8,3,169,196,141,9,3,96,169,228, 7846 


141,8,3,169,167,141,9,3,96,8,8,32 
155 DATA 115,8,249,4,201,95,2408,3,76,231,167, 7581 
32,115,8,281,73,248,3.76,8,175,32 
156 DATA 115,8,32,3,192,76,174,167,255 3239 
188 A=49152:ıE=59263 1877 
198 S=8 376 
88 FOR I=A TO E 7-23 
218 READ U 393 
28 POKE 1,4 653 
238 S=S+W 463 
48 NEXT I 276 
58 IF S<>128964 THEN PRINT "FEHLER IN 3955 
DATAS!!I!I*":END 


END 


(Jürgen und Roland Hank) 
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Praxis- 


orientiertes 


BASIC + 


Mikrocomputer- 
praxis 


Eigene Programme in BASIC erstellen, 
fremde Programme verstehen und 
umschreiben, gekaufte Standardpro- 
gramme beurteilen und einsetzen, 
Aufbau und Funktionsweise eines 
Mikrocomputers kennen, die wichtig- 
sten Anwendungen beherrschen 

und über ein solides theoretisch-prak- 
tisches EDV-Grundwissen verfügen. 
Das alles vermittelt Ihnen der Lehr- 
gang BASIC + Mikrocomputerpraxis. 


Hauptfächer: Programmieren in BASIC — 
Programmiertechniken — Hardware. 
Anwendungsfächer: Programmierstudien — 
Kaufm.-kommerzielle Anwendungen — 
Technisch-wissenschaftl. Anwendungen — 
Computer-Graphik — Musik und Spiele. 
Nebenfächer: Betriebssysteme — Program- 
miersprachen — Daten und ihre Darstellung — 
Evaluation von Mikrocomputern — Mathema- 
tische Grundlagen. Die Funktion und Arbeits- 
weise von Druckern wird ausführlich 
besprochen! 

Der Lehrgang umfaßt 14 Lehrbriefe zu je 

DM 128,— inklusive Begleitiehrbriefe zum C 64. 


Christiani 
Fortbildung 


Technisches Lehrinstitut 
Postfach 3503167 : 7750 Konstanz 
in Österreich: Ferntechnikum 6901 Bregenz 


| Coupon auf Postkarte aufkleben oder 
im Umschlag einsenden 
Sie erhalten sofort kostenlos ausführliches 
informationsmaterial über den Lehrgang 
BASIC + Mikrocomputerpraxis. 


Name, Vorname 


Straße, Nr 


, PLZ, Ort 03167 
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Lokale Variablen 
für den C 64 


Es gibt Programmiersprachen, 
die bekannteste ist PASCAL, die 
in Prozeduren und Funktionen lo- 
kale Variablen zur Verfügung stel- 
len, die nur in der gerade ausge- 
führten Prozedur oder den wie- 
derum von ihnen aufgerufenen 
Prozeduren gültig und nach ihrer 
Ausführung nicht mehr verfügbar 
sind. So können die gleichen Va- 
riablennamen in diesen Proze- 
duren und im Hauptprogramm 
verwendet werden, ohne daß die 
Variablen des Hauptprogramms 
beeinflußt oder in ihren Werten 
verändert werden. Das allein 
reicht aber nicht aus, denn Proze- 
duren (oder in BASIC: Subrouti- 
nen) sollen ja universell und für 
verschiedene Argumente an- 
wendbar sein. Aus diesem Grund 
müssen Parameter, das können 
Variablen oder feste Werte sein, 
mit in die Prozedur hinein- oder 
aus ihr herausgenommen werden. 
So kann in der Prozedur mit varia- 
bien Werten gerechnet werden, 
wobei jedoch die verwendeten 
Variablen nur lokale Bedeutung 
haben. Genauso können die Er- 
gebnisse der Subroutine wieder 


Viele Programmier- 
sprachen haben in 
Subroutinen eigene 
Variablen. Damit es sie 
auch in Basic gibt, 


hat Dirk Sagwitz das 


Maschinenprogramm 
„PROC“ geschrieben. 


in das aufrufende Programm 
übernommen werden. Man nennt 
sie Ärgument- beziehungsweise 
Argument-Ergebnis-Parameter, je 
nachdem, ob sie nur als Argumen- 
te zur Berechnung dienen oder 
auch Ergebnisse liefern sollen. Es 
gibt jedoch keine reinen Ergebnis- 
Parameter. 

Mit dem Programm 'PROC’ kann 
das auch in Basic simuliert wer- 
den. Es ist vollständig in Maschi- 
nensprache geschrieben und 


kann direkt oder über einen Ba- 
sic-Loader eingeladen werden. 
Nach der Initialisierung stehen 
zwei neue Befehle (IPROC und 
!IEPROC) zur Verfügung. Mit dem 
Befehl !IPROC wird auf lokale Va- 
riablen 'umgeschaltet' und mit 
dem Befehl !IEPROC wieder zu- 
rück. Das bedeutet, daß alle Va- 
riablen, die vor Ausführung des 
!IPROC-Befehls vorhanden waren, 
wieder ihre vorherigen Werte be- 
sitzen und Variablen, die erst 
nach dem !PROC-Befehl benutzt 
wurden, unbekannt sind und kei- 
nen definierten Wert besitzen 
(Beispiel ]). Es ist aber auch mög- 
lich, daß Argumente mit in die 
Subroutine hinein- oder Ergebnis- 
se aus ihr herausgenommen wer- 
den. Der Aufruf erfolgt dann zum 
Beispiel mit !PROC(A,B%,C1$). 


Aufbau von Rekursion 


Das bedeutet, daß die Variablen 
A,B% und C1$ ihre Werte behal- 
ten und auch nach dem !PROC-Be- 
fehl bekannt sind, während alle 
anderen Variablen undefiniert 


DATA 162,0,142,141,193,162,16,168,192, 6776 | 12 DATA 135,193,208,243,192,9,208,,243,32, 6973 
142,9,3,1498,9,3,56,32,115,0,8,281 115,0,201,40,240,6,32,81,193,76 

i DATA 33,249,4,48,76,231,167,160,0,408, re2ı 13 DATA 174,167,32,31,193,22,4,193,32,31, 8998 
32,118,8,217,131,193,248,11,217,135 1533,76,242,192,22,113,9,32,231,193 

@ DATA 133,240,3,76,8,175,76,222,192,32, 6828| ı4 Data 32,40,175,32,31,193,32,171,192, ?187 
115,0,2098,217,131,193,209,241,192 169,0,177,122,201,44 ,240,233,32,115 

3 DiTA 3,208,243,32,115,8,201 ,49,248,6, 5048 | 15 DATA 8,96,174,191,193,202,185,45,168, 7525 
32,113,192,78,174,187,185, 122,72 1893,142,193,133,968,152,157,142,193 

4 DATA 165,123,72,32,195,192,104,133, 7154 | 16 DATA 292,165,45,169,189,142,193,133, sl 
123,184,133,122,72,165,123,72,32,113 45,152,157,142,1933,36,174,141,193 

S DATA 192,32,195,192,184,133,123,104, €e571 | 17 DATA 289,3,76,105,193,2092,189,1492,193, T7es2 
133,122,32,4,193,78,174,167,174,141 133,46,189,142,194,133,498,183,142 

6 DATA 193,224,254,144,3,76,185,193,165, 7672 | ı9 oaTa 135,133,38,282,139,142,193,133, 8973 
45,157,142,193,165,47,157,142,193 45,189,142,194,133,47,189,142,15$ 

? DATA 165,49,157,192,195,232,163,48, 6734 | 19 DATA 133,43,142,141,193,96,162,8,189, 6488 
157,142,193,165,48,157,142,194,165 121,183,32,219,255 ,232 ,224,198,289 

8 DATA 59,157,192,195,165,49,133,45,133, 6349 | 28 para 245,78,99,164,63,75,79,97,32,83, 7185 
47,165,58,133,46,133,48,232,142 84 ,65,67,75,90,92,73,87,69,98,82 

9 DATA 141,193,96,32,231,176,133,73,132, 7asa | 2ı DATA 73,87,222,0 1397 
74,36,13,48,7,36,14,16,6,76,196 2e FÜR 1=49152 TO 49549:READ A:S=S+A:POKE 3413 

18 DATA 169,75,44,178,76,203,1897 ,32,115, 7113 1,A:NEXT 
0,32,408,175,32,171,192,169,44,168 83 IF SC>48542 THEN PRINT 2895 

il DATA 0,289, 122,248 ,239,169,41,203,122, 6957 "PRUEFSUMENFEHLER !*ıEND 
©408,3,76,8,175,96,32,115,9,280,217 24 SYS 491521PRINT "PROC AKTIVIERTI*INEW 2829 
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87 CHKSUM 


alz) 32 
59 5D 
84 38 
28 c4 
D3 cc 
ac 59 
83 sa 
20 23 
71 AB 
AS 49 
7B F2 
29 67 
7B 
AE 
83 
ci 
9D 
ci 
9D 
er 
SE 
49 
DE 
ala) 


DEFTTTEIZITETESZESTETZESZS ZI SIE III cols 28 
’“ ” nploor ceı9 dc Er A? 


is Proceduren mit lokalen Variabien “00  !1* ueberlasen ceic ro 08 

ı2 und Parameteruebergabe fuer C»-84 C8lE 28 

‚= Vers. 2.9 ic) 20.08.1984 chroet tnachstes Zeichen coir 20 73 08 
PETFTTTTTITITIIIISIIIIIISISZEZ III Iitent,y 3“'P! ce22 09 83 Cı 
F 12 ja => ce25 


i#tig ’Typ#lag Integer/Real stext,y j='E' co2?7 
stia 
varstpi 
arrstpi 
arredpi 
vramel 
baspl 
varstph 
arretoh 
arredeh 


- 
= ITypflag Numer isch/Strins 13 ıja = coan 
= IBegin Variablen terror synterr ißyntax-Äerreor caRc 
= ıBesin Arrays t3 atest ı=> ’EPROC' Test cear 
- ‚Ende Arrays «2 chroet inaechstes Zeichen ce32 
“ IName der i#d. Variablen mit Tabelle ver- c835 
2 ‚Zeiser in Basic itext,y gleichen ce38 
"-varstpil#+i ‚Berechnung der terror ‚Fehler 7 c839 
“ arrstpl+i ;sHoseherwertisen “a3 iEnde ? ce38 
"= arredpi+1 Adressen 12 Inein => c830 

unamah = unamei+i chra«t inaachstes Zeichen co3F 

basph “- baspl+i n’c Klammer auf ? co42 

chrget = 08073 INaschstes Zeichen ıı ja =) c944 

iloopi = 20308 Pointer fuer incest IKaine Paramater 

ilooph = iloople+li tiInt.pret.schleite iploop ‚Fertig 

“uraxit = SA4GE igibt ERROR aus baspi imarke Pointer 

nploop = Inormaler iploor 

iploop = ıiploop-anfang basph 

wzint - iblertzuueisung Integer 

wzrea - # Real init Iinitialisiere 

“ıstr - 

synterr = 

varhol - 

vsuch - 

basout = 


’ String Variablen 
SYNTAX ERROR basph 
holt Variable 
sucht Variable baspi 
gibt Zeichen aus 
basph 
“-. sCc0080 IStartadresse 
start tinitialisierung incest initialisiere 
‚Stackpointer init ‚Variablen auf 
der Chroetroutine lokaler Ebene 
Idamit Zusatzbe- basph 
ifehle erkannt werden 
basp] 
copy ikopiere Variablen 
ltd Chre'!i* 7 iploor Jau# lokale Ebene “4C AE A? 
stackp iralicht Stack ? corı AE en cı 
ja "> usrE co74 EB FE 
iok ıja => ce7s Se 83 
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Jmp 
uoAa 
sr 
LA 
sra 
LoA 
5TA 
in 
1L0A 
sr 
LoA 
sr 
LoA 
5 
LOA 
sTÄa 


“rror 
varstel 
vptab,n 
arrstei 
asptab,x 
arredpi 
“eptab,x 


varstph 
vetab,x 
arrateh 
asptab,n 
arredeh 
“uptab,n 
arradel 
varstpl 
arrstel 
arredph 
varıtph 
arrsteh 


auf Stack 
merke aktuelle 
‚Pointer der 


»Variableantabelle 


Pointer neu 
isetzen 


+LOWM STACK Error 
momentane Pointer 


INK 

STH stackp 

ARTS Ende 
eri JSR vauch suche Variable 

STA uvnamel merke Namen 

STY vnameah 

BIT t#i19 ıNumerisch ? 

BMI ins 

BIT i#ls ıString ? 

BPL inr 

JMP uzint # Integerzuueisung 
ins JUMP usstr »Stringzuueisung 
inr JMP wzrea JRealzuueisung 
init JSR chreet Iueberlese Zeichen 

JER varhol ihole Variable 

JSR coli #initialisiere 


Lon w', 
LDY 4200 susitere 
CHP (baspl),vytParamter 7 
BEO init ıja => 
LOA u’) 
CMP kbaspi),y 
BEO ie IEnde 7 
serror JMP synterr I8YNTAX ERROR 
te RTS tEnde 
strert JER chraet Test auf 'EPROC* 
in 
ECHP stent,y inaechstes Zeichen 
BNE serror testen 
CPY n#94 
BNE stest Ende 7 
JER chraoet 
cmr u’c Parameter ? 
BEU 31 Ija => 
.2 JSR decst ivermindere Stack 
JMP iploop Ende 
»i JSR verst 
JSR copy ıKopiere Variablen 
JER vor«t 
JeP 92 Ivermindere Stack 
copy JER chroet Zeichen ueberlesen 
JSR verst J‚vertausche 


sind. Diese Variablen können nun 
ganz normal benutzt werden. Trifft 
der Rechner nun auf den IEPROC- 
Befehl, entscheidet sich, welche 
Werte die Variablen im weiteren 
Verlauf besitzen. Sind hinter dem 
Befehl keine Parameter angege- 
ben, so besitzen sie wieder die 
Werte, die sie vor Ausführung des 
PROC-Befehls hatten. Andernfalls 
werden die Werte der Variablen 
übernommen, die als Parameter 
hinter dem EPROC-Befehl ange- 
geben sind, und alle anderen er- 
halten ihren alten Wert zurück 
(Beispiel 2). Es ist auch möglich, 
Rekursionen aufzubauen. Rekursi- 
ve Algorithmen rufen sich selber 
wieder auf oder sind durch sich 
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ce78 4C 89 cı JSR varhöl 
ce7’B ns 20 JER verst 
c870 80 #£ cCı JSR cpi 
ceuo AS er ı8 LOY #208 
c8s2 90 8E ca LDA (baspl),y 
C885 AS 3ı op u, 
C6B7 5D 8E ca BEO copy 
cosa E8 JER chreet 
cBBB n5 2€ RTS 

C080 30 BE Cı verst LOX stackp 
cos8 AS 30 Dex 

ce932 90 8E ce LOA varstph 
cess As 32 TAY 

C037 50 8£ ca LOA vptab,x 
cosn AS 31 STA varsteh 
cesc 85 20 Tr 

COBE 85 ar STA votab,x 
coAe As 32 DEX 

con2 03 2 LDA varstei 
cCoAd 85 38 TAYr 

CoAs Es LDA vptab,x 
c0A? SE 80 Cı STA varstel 
cean 68 an: 

corB 28 Er wo STA vptab,x 
CORE 85 49 RTS 

con 94 “A decst LOK stacke 
coB2 24 ©0 ShE di 

C0B4 38 087 JMP error 
coBs 24 BE di DEX 

ces8 ie 06 LDA votab,x 
ceBR dc Ca n9 STA varatph 
co80 “ac 2c An LOA asptab,n 
cece 4C De 68 STA arrsteh 
cec3 2e 72 oo LDA a0eptab,x 
cocsE 28 Ba Ar STAa arredeh 
coC9 28 AB Co OoEx 


coce n9 2C LDA votab,.x C1S56 80 8E Cı 

CecE AB 00 STA varatpı cıS59 83 0 

cooe DI 7A LOA asptab,x CIsB 80 8£ ca 

cona Fo EF STA arrstpi CIJE 85 ar 

ceos AS 29 LOA a0ptab,x C160 80 BE c3 

ces DI 7A sta arredpi ci683 88 31 

ceos Fo 83 STa stackp C165 8E 80 Ci 

ceoR 4C 08 AF RTS Ende Ci68 60 

ceoo 0 “error LoOx sog cıoa ne © 

CODE zu 73 80 ei LOA ttab,x ıFehlermeldung Ci6B BO 79 Cı 

cect c8 J5SR basout tausgeben Ci6E 28 DR FF 

CBE2 09 87 cı IN» cı7ı E8 

CBES 08 F3 CPX neBaA cır2 Eo 0A 

coE7 co 84 BNE eı ci7a4 00 FS 

coEs 00 F3 IP uraxit #5prung in Fehler- Ci78 ac 02 As 

CeEB 2 73 so Iroutine 

CBEE C3 28 ttab «text '7LOW STACK* cı73 ar de ae 57 20 
cCoro Fo 05 CITE 53 S4 41 43 a8 
car? 20 20 cı Itext ‚text 'PROC*’ cıe3 50 SB ar 43 
cars ac Au nA? rext «text 'EPROC*’ cıer7 #3 So Sa 4+ 43 
ters 208 IF cı stackp = #+i 

COoFB 26 84 cı vptab -.+2 

EBFE EB IF Ci “asptab =» »+298 

ciel ac F2 ca aeptab = a+5j4 


‚Pointer cıoa 20 28 AF 
tund Kopiere die CıeD 28 ır Cı 
Variablen cııe 20 AB ce 
cCıı3 AO 00 
cııs Bı 7A 
+Ende 7? c117 9 ec 
Inein => cı19 Fo 9 
»')" weberlesen cCilE 20 73 00 
IEnde CIIE 69 
Ivertausche CiiF AE 80 ci 
Pointer zum Suchen cie22 CA 
und Kopieren cı23 AS 2E 
cı25 As 
ci26 80 8E cı 
cCie3 85 2€ 
CiI2B 98 
Ci2C 80 BE cCı 
cıer ca 
ci3e AS 20 


IStackpointer >30 7? 


rja ») 
»LOW STACK 


isetze Pointer 
Szurusck 


ERROR 


cı133 
cı136 
cı38 
c1398 
cisc 
c130 
c146 
cCis2 
cıa5 
Ci46 
c149 
cı4B 
CiI4E 
cıse 
c153 
cıss 
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ci 


Ende des Programms 


selbst definiert, zum Beispiel die 
natürlichen Zahlen oder die Fa- 
kultät einer natürlichen Zahl (Bei- 
spiel 3). Im Standard-BASIC ist das 
nicht möglich, da die Variablen 
von allen 'Ebenen’ eines rekursi- 
ven Äufrufes verfügbar sind und 
sich somit gegenseitig beeinflus- 
sen. Will man diese rekursiven 
Aufrufe in Basic simulieren, so 
muß man die Lokalität der Varia- 
blen durch Arrays, in denen die 
momentanen Werte abgelegt wer- 
den, simulieren. Mit den neuen 
Befehlen !PROC und !EPROC ist 
es möglich, bis zu 127 Ebenen zu 
benutzen, bevor ein !EPROC-Be- 
fehl folgen muß. Das wird wohl 
keine Einschränkung bedeuten, 
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denn ein GOSUB-Befehl, bei dem 
der !PROC-Befehl am sinnvollsten 
eingesetzt werden kann, erlaubt 
einen maximalen Rekursionsauf- 
ruf von 26 offenen Routinen. Hat 
man dennoch die Grenze von 127 
einmal erreicht oder wird ver- 
sucht, den !EPROC-Befehl öfter 
als den !PROC-Befehl anzuwen- 
den, so meldet sich der Computer 
mit einem '?LOW STACK ERROR‘, 
Der Programmierer hat dafür zu 
sorgen, daß die durchlaufenen 
IPROC- und  I!EPROC-Befehle 
gleich groß sind wie bei GOSUB- 
RETURN, damit nach Beendigung 
des Programms der Stack ausge- 
glichen ist. Sonst muß mit 
SYS49152 der Stack zurückgesetzt 


werden. Es ist jedoch zu beach- 
ten, daß keine Arrays, Array-Ele- 
mente oder Funktionen kopiert 
werden können. Alle anderen Va- 
riablen können aber als Parame- 
ter angegeben werden. 


Funktionsweise des 


Programms 
Pa Ha ee 


Um die beiden Befehle !PROC 
und !EPROC in das Basic des C64 
zu integrieren, wird zunächst der 
Pointer, der auf die Interpreter- 
schleife zeigt, verändert. In einer 
eigenen Routine wird dann über- 
prüft, ob das laufende Zeichen 
="! ist. Ist das der Fall, so wird in 
die eigentliche Decodierroutine 
gesprungen. Andemfalls wird die 
normale Interpreterschleife wei- 
ter ausgeführt. In der eigenen De- 
codierroutine wird dann auf 
IPROC oder !EPROC getestet und 
in die entsprechende Routine ver- 
zweigt, Wird keines der beiden 
Wörter gefunden, so wird in die 
'SYNTAX ERROR'-Routine ge- 
sprungen. In der PROC- bezie- 
hungsweise EPROC-Routine wird 
als nächstes überprüft, ob Para- 
meter angegeben sind. 

Ist das der Fall, so werden die Va- 
riablen auf der globalen und loka- 
len Ebene initialisiert und kopiert. 
Das ist dadurch möglich, daß der 
Basic-Interpreter erst an der Stel- 
le mit der Suche beginnt, auf die 
die Pointer in der Zero-Page zei- 
gen, und dann aufhört, wenn die 
Variable gefunden worden ist. 
Setzt man den Pointer hoch, so 
werden die ‚globalen Variablen‘ 
nicht mehr durchsucht und kön- 
nen so auch nicht verändert wer- 
den. Will man Werte von Varia- 
blen mit in eine andere 'Ebene’ 
übernehmen, so muß man diese 
suchen, den Wert holen, die Ebe- 
ne umschalten und dann auf die- 
ser Ebene den Variablen den 
Wert zuweisen. Beim Hochschal- 
ten merkt man sich die alten Wer- 
te der Pointer in einer Tabelle und 
setzt den Anfang der Variablen 
auf das Ende der Arrays. Beim 
Herunterschalten werden diese 
dann wieder zurückgeholt. 

Um das Programm möglichst kurz- 


zuhalten, wurden einige Routinen 
des Basic-Interpreters und des 
Betriebssystems verwendet, 
ebenso einige spezielle Speicher- 
stellen, die in der Zero-Page lie- 
gen. Diese sind im einzelnen: 
$000D —Typflag für numerisch 
(=$00) und String (=$FF). Das 
Flag wird gesetzt, wenn ein Äus- 
druck ausgewertet oder eine Va- 
riable gesucht wird. 

$000E —Typflag für Integer 
(=$80) und Real (=$00). Siehe 
oben 

$002D —(1,h) Zeiger auf Start der 
Variablen 

$002F —(1,h) Zeiger auf Start der 
Array-Tabelle 

$0031 —(1,h) Zeiger auf Ende der 
Array-Tabelle 

$0045 —{1,h) Variablenname 
$0073 —CHRGET-Routine erhöht 
Zeiger in den Basic-Text und holt 
das nächste Zeichen in den Akku- 
mulator. 

$007A —(1,h) Zeiger in den Basic- 
Text, zeigt auf den laufenden Be- 
fehl beziehungsweise das laufen- 
de Zeichen. 

$0308 —(1,h) Vektor für die Inter- 
preterschleife ($AT7E4). 

$A462 —Sperrt 'CONT' und gibt 
'ERROR' aus, danach Sprung in 
den Direkt-Modus. 

SATE7 — ‚Normale‘ Interpreter- 
schleife. Holt nächsten Befehl und 
führt diesen aus. 

$SA7AE —Beginn der Interpreter- 
schleife. Testet auf STOP, merkt 
Zeiger für CONT, erkennt Pro- 
grammende. 

$A9ICA —Wertzuweisung Integer. 
Weist einer Integervariablen den 
Wert des Fließkomma-Akku #1 


zu. 
$AR2C —Wertzuweisung String. 
Weist einer Springvariablen den 
aktuellen Stringdeskriptor zu. 
$SAF08 —Gibt 'SYNTAX ERROR' 
aus. Danach Sprung in den Direkt- 
Modus. 

$AF28 —Holt Wert einer Varia- 
blen (Zeiger = $7A/TB) 

$B08B —Sucht Adresse einer Va- 
riablen 

$BBDO — Wertzuweisung an Real- 
variable. 

SFFD2 -Gibt Zeichen aus Akku 
auf dem Bildschirm aus. 

Das Programm kann mit Hilfe des 
Basic-Loaders oder mit Hilfe des 


HU MOMELSNIUTERWORLD. SM 


Checkers eingegeben werden. 
Eine Anpassung an den VC-20 ist 
kein Problem, denn die verwen- 
deten Adressen und Routinen exi- 
stieren auch bei diesem Compu- 
ter, es muß nur zu den Ädressen, 
die im Bereich von $A000 bis 
$BFFF liegen, ein Wert von $2000 
addiert werden. $A462 beim C 64 
ergibt also $C462 beim VC-20. Da 
das Programm aber in gerade die- 
sem Bereich liegt und beim VC-20 
dort normalerweise kein RAM-Be- 
reich ist, muß das Programm in 
einen anderen Bereich verscho- 
ben werden. 

Beispiel l, 

10A=1:B=2 

20 ! PROC 

30 REM IRGENDWELCHE 
BERECHNUNGEN 

40 IEPROC 

50 END 

In Zeile 30 sind alle Variablen un- 
bekannt! In Zeile 50 haben A und 
B wieder die Werte 1 und 2, egal 
welcher Wert ihnen in Zeile 30 zu- 
gewiesen wurde! 

Beispiel 2: 

10 A=1:B%=4:C$="PROC-TEST" 
20 !PROC(A,C$) 

30 REM 

40 A=5:C$="TEST-ENDE" 

50 !EPROC(CH 

60 END 

In Zeile 30 haben die Variablen A 
und C$ ihre vorherigen Werte, 
also 1 und „PROC-TEST", wäh- 
rend B% und alle anderen Varia- 
blen keinen beziehungsweise den 
Wert 0 haben. In Zeile 60 hat A 
wieder den Wert 1, B% den Wert 
4 und C$ hat den Inhalt "TEST- 
ENDE“, 

Beispiel 3: 

Berechnung der Fakultät durch 
Rekursion nach der Formel 
N!=N#(N—I])! 

l!=] 

10 INPUT"ZAHL:";N 

20 GOSUB 100 

30F=F#N 

40 PRINT “FAKULTÄT VON "N" 
IST-F 

50 END 

100 !PROC(F,N) 

110 N=N—1:IFN>1 THEN GOSUB 
100:F=F*N:GOTO 130 

120F=]1 

130 IEPROC(F) 

140 RETURN (Dirk Sagwiltz) 
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Computer unter 


Bei der Fehlersuche ist es prak- 
tisch, wenn ein Programm nicht in 
seinem normalen Tempo abläuft. 
'Trace' verlangsamt den Pro- 
grammlauf um das 70fache (Mit 
Poke 2,15). 'Tracen’ ist aber nur 
sinnvoll, wenn man weiß, welche 
Zeile gerade abgearbeitet wird. 
Deshalb wird im linken oberen 
Eck die Zeilennummer eingeblen- 
det. Will man noch mehr brem- 
sen, kann man zusätzlich ein paar 
Print-Befehle verwenden. 


7/Omal langsamer 


Die Verzögerung wird mit „POKE 
2,X" eingestellt. „X* darf Werte 
zwischen 0 (keine Verzögerung = 
Anfangseinstellung) und 15 anneh- 
men (70fache Verlangsamung). 
Dies kann auch innerhalb des Pro- 
gramms geschehen; es können 
also auch einzelne Programmteile 
„getraced” werden. Nach Drük- 
ken von RUN/STOP + RESTORE 
muß "Trace' wieder eingeschaltet 
werden. 

Das Verbiegen des Interrupt-Vek- 
tors liegt diesem Programm zu- 
grunde, 

Jede sechzigstel Sekunde unter- 
bricht ein Timer den Programm- 
ablauf, damit das Betriebssystem 
verschiedene Routinearbeiten 
durchführen kann. 

Beim Start mit SYS 49152 wird 
'Trace' in diesen System-Inter- 
rupt eingebettet. Nun wird bei je- 


Programmfehler, die 
keine Errormeldung 
provozieren, sind nur 
zu finden, wenn man 
den Computer Schritt 


für Schritt kontrolliert. 


REM 


il REM = B<X<15 ı 


13 : 


39 FOR I=12+49856 TO 12+40896+135 


31 READ A:S=S+A 
32 POKE I,A 
33 NEXT I 


48 DATA 128,173,21,3,201 ,234 ,288,12,169,132 

58 DATA 141,21,3,169,36,141,29,3,299,19 

68 DATA 169,49,141,28,3,169,234,141,21,3 

78 DATA 88,1693,9,133,2,95,165,157,49,93 

88 DATA 165,2,2408,13,281,16,176,9,168,1s82 3591 

98 DATA 62,232,208,253,136,208,248,165,59,133 

188 DATA 232,165,57,133,251,169,9,162,8,169 

118 DATA 498,133,253,165,252 ,221 ,127,132,144 ,28 

128 DATA 289,7,165,251,221,128,192,144,19,58 
‚138 DATA 165,251,253,126,192,133,251,163,232 ,253 
148 DATA 127,192,133,252,230 ,253 ,209 ,221,165,253 48991 
159 DATA 153,9,4,169,1,153,0,216,200,202 
168 DATA 202,16,202,76,49,234,1,8,18,8 
1098,9,232,3,16,33 


178 DATA 


CHKSUM 


88 
53 
Cc7? 


78 
83 
E4 
ES 
13 


KERERKRKRLEKEREREEEEKEKEEKEREN 
8 REM # AKTIVIEREN MIT SYS 12+4996 + 
9 REM *» 12+48965=49152=$C9098 * 
18 REM = VERZOEGERUNG: POKE2,X * 


12 REM #ssrxE Kst HERE 


34 IF S<>17493 THEN PRINT "ERROR IN DATAS!* 
’ 


dem Interrupt in eine eigene Rou- 
tine gesprungen. Dort wird gete- 
stet, ob der C64 gerade im Direkt- 
Modus läuft. Wenn ja, wird sofort 
in die normale IRQ-Routine ge- 
sprungen. Ändernfalls wird die 
aktuelle Zeilennummer ausgege- 
ben. Vorher wird noch eine Ver- 
zögerungsschleife durchlaufen, 


sofern die Verzögerung auf einen 
Wert größer als Null eingestellt 
ist, 

Die Routine wird mit SYS 49152 
auch wieder ausgeschaltet. 


(Andreas Prott) EMEEEEEEEEEEEEEEEEEEE 


* 


2193 
1139 
483 
278 
a7as 


4316 
3576 
3678 
3549 


3892 
3727 
3518 
4856 
5134 


3378 
3213 
19826 
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END OF MHAE PASS! 


ECIOOO- 
cO01- 
COO4- 
COO6- 
CO0OB- 
cCOVA- 
cooD- 
COOF- 
GCOl12- 
Cco14- 
CO16- 
GOLY7- 
CcO15- 
CO1E- 
COIF- 
co2Zi- 
C023- 


C024- 
C026- 
C028- 
CO2A- 
cO2Cc- 
LO2E- 
C030- 
cO31- 


1000 
1010 
1020 
1030 
1040 
1050 
1080 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1180 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1250 
1270 
1280 
12970 
1300 
1310 
1320 
1330 
15340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1480 
1470 
14890 
1490 
1500 
1510 
1520 
1530 


EUMOREZENIIZTERU II.D.ZOM 


SHHAHHRKEHÄHHRÄHHRÄEHRFKRNHÄERURRR 


;* TRACE-NS 6502 * 
FRE 2 212 2 2 2 2 2 27 2 2 2 2 2 2 2 2 2 2 2272.27 


GHAERRRERRERKÄERRKRHRKHTNRKTENRN N 


;*+ 


* 


;* ANDREAS PROTT “ 
;* THERESIENSTR. 100 + 
;* 8000 MUENCHEN 2  * 
SAHFKRAKERRERRAKERRKRRRARNHAKERR 


;EIN- BZW. AUSSCHALTEN 
sDURCH ‘SYS 12*4096' 


sVERZOEGERUNG 


VON 1-15 


sHAEHLBAR (POKEZ2,VERZOEG.) 


; 
VERZOEG .DE #02 
ZEILENNR .DE #&FB 


ZIFFER .DE $FD 
IRQ „DE 0314 


’ 
.BA #C000 
.08 


’ 
*#%%# EIN- UND AUSSCHALTEN ##%% 


; INTERRUP 
IRQ+1 
SEA 


T VERHINDERN 


AUS ;AUSSCHALTEN => 


#H,NEU ;E 
IR@+1 
#L,NEU 

STA IRQ 

BNE FERTIG 


INSCHALTEN! 


AUS LDA ##31 ;AUSSCHALTEN! 


STA IR@ 
LDA ##EA 
STA IRa+1 


FERTIG CLI ;INTERRUPT HIEDER ZULASSEN 


LDA #300 
STA #VERZOEG 
RTS 


sVERZOEGERUNG AUF NULL 


’ 
s**#*% NEUER IR@Q-ANFANG 4% 


; 
NEU LDA *#9D 


BMI SPRUNG ;DIREKTMODUS => 


LDA *VERZOEG 
BE@ KEINEVERZ 
cHP #10 

BCS KEINEVER2 
TAY 
LOOPi LDX #3$3E 


;**%* VERZOEGERUNG ##%* 
KEINE VERZOEGERUNG => 


>15 => KEINE VERZOEGERUNG 


sVERZOEGERUNGSSCHLEIFEN 
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c033- 


CO38- 


LOSb- 
Cu5UD— 
COSF- 
co41- 
CO43— 
[AT 7 Ber 
Cu47— 
C04Y- 
CcoO4B- 
CO4E- 
C050- 
co52- 
C054- 
C057- 


COSA- 
CoSc- 
c05r- 
coOsi- 
ECOs3- 
CObb- 
C068- 
COBsA- 
C0sC- 
CObE- 
co?7i- 
C073- 
CO76- 
cu77- 
cO78- 
C079- 
CU7D- 


CO7E- 
COBU- 
COBZ- 
co84— 
COBs- 


FERTIG 
LISIE 


VERGLE 
2ZiH FER 


2059-2 


ABZIEHEN 


C034- DO FD 
CuS7- DUO FB 


vus39- AS SA 


=Co1E 
=CO7E 


HEU =C024 
ICH =C049 


=OOFD 


co 


co 


co 


04 


D8 


EA 


END OF MAE PASS! 
—— SCABEL FIEEI 


=C057 


//0000,C088,C088 
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1540 
1550 
1560 
1570 
1580 
1590 
1500 
1610 
1620 
1630 
1640 
1550 
1660 
1670 
1680 
1490 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
17909 
1800 
1810 
1820 
1830 
1840 
1850 
1840 
1870 
1880 
1890 
1900 
1710 
1920 
1950 
1940 
1950 
1960 
1970 
1980 
19970 
2000 
2010 


LOOPZ INX 
BNE LOOP2 
DEY 
BNE LOOPI 


;#%*%* AUSGABE DER ZEILENNUMMER “rr 
KEINEVERZ LDA *#3A ;AKTUELLE ZEILENNUMHER 


STA *#ZEILENNR+1 


LDA #397 


STA *ZEILENNR 
LDY #300 ;50FFSET BILDSCHIRN 
LDX #308 ;0FFSET VERGLEICHSTABELLE 
NEXTZIFFER LDA #$30 ; AKTUELLE ZIFFER 
STA *ZIFFER ;ANFANGSWERT = © 
VERGLEICH LDA *ZEILENNR+A 
CHP LISTE+1,X 
BCC AUSGABE ;HBYTE ZEILE <£ LISTE => 
BNE ABZIEHEN ;ZEILE < LISTE => 
LDA #*ZEILENNR ;HBYTES SIND GLEICH 


CHP LISTE, 
BCC AUSGABE 


X ;LBYTES? 


;HERKEN 


ABZIEHEN SEC z3ZEILENNUMHER:= 
LDA *ZEILENNR 3:=ZEILENNR-VERGLEICHSWERT 


SBC LISTE, 


x 


STA *ZEILENNR 
LDA *ZEILENNR+1 
SBC LISTE+1,X 
STA *ZEILENNR+1 
INC #ZIFFER zZIFFER ERHOEHEN 
BNE VERGLEICH ;NOCH EINHAL VERGLEICHEN 


AUSGABE LDA *ZIFFER ;%* AUSGABE EINER ZIFFER * 


STA #0400,Y 


LDA #301 


STA &D800,Y ;IN HEISSER FARBE! 
INY ;3BS-OFFSET ERHOEHEN 

DEX ;VERGLEICHSTABELLEN-OFFSET 
DEX 3ERNIEDRIGEN 
BPL NEXTZIFFER ;NOCH NICHT FERTIG => 
SEAS1 5SPRUNG ZUR EIGENTLICHEN 


SPRUNG JMP 


; 
LISTE 


“ 


.BY 201 00 
.BY $0A $00 ; 
.BY £64 $00 ; 
„BY $E8 #03 ; 1000 
.BY $10 #27 ; 


s##% ENDE #%x* 


„EN 


AUS 


=6014 


Ira =0314 
LOOP1 =CO31 
NEXTZIFFER =C045 


VERZUOEG 


=0002 


IR@A-ROUTINE 


H 1 VERGLEICHSTÄBELLE 


AUSGABE 
KEINEVER 
LOOP2 =C 


sZEILE<LISTE => AUSGABE 


=C0öC 
zZ =6037 
0353 


SPRUNG =C0O7B 


ZEILENNR 


=00FB 


ohne type mismatch 


Gibt man innerhalb eines Pro- 
gramms zum Beispiel 2/7 ein, führt 
das zur Fehlermeldung „redo from 
start“. Das gleiche passiert, wenn 
man ein Bogenmaß mit n verwen- 
det. Der Basic-Interpreter liest alle 
nichtnumerischen Zeichen (mit 
Ausnahme des Punktes) als Teil ei- 
nes Strings und akzeptiert sie nicht. 
Das Kommanimmt er an, schneidet 
aber mit der Meldung „extra igno- 
red" dieNachkommastellenab. 


Eingabemit 


Strichrechnung 
SREREBER 


Umdaszuvermeiden, wirdstattdes 
numerischen Inputs ein String ab- 
gefragt. Dieser wird mit Hilfe der 
Stringfunktionenzerlegtundzuden 
gewünschten Zahlenvariablen wie- 
der zusammengesetzt. Wer außer 


Brüche und Bogenmaß 
akzeptiert der C 64 nur 
als Dezimalzahl. Wer 
mathematische Schreib- 
weisen benutzen will, 
dem hilft dıese prakti- 


sche Subroutine. 


den hier vorgesehenen Konstanten 
rn und e=2.718281828... anderen 
Tasten irgendwelche Konstanten 
zuordnen will, kann dies auch tun, 
indem er zwischen 30630 und 30660 
Zeilen nach dem Muster der Zeilen 
30640 und 30650 einfügt. 

Die Syntax der Stringvariablen: In 
einem Eingabeterm kann multipli- 


VLE=LEN (VARSI:IF RIGHTS (VAR$,1IKY"Z" 


G0OTO 39529 


INPUT "L2SPACESIFEHLER) NEUE EINGABE" 


VARS:GOTO 39599 
FOR V=-1 TO VL% 


IF MIDS <VAR$,V,1)="/7" 
v2%=V-1:G0T0 39559 


THEN VNA=VLA-Vi 


NEXT VEVZZ=VLA: VNZ=D 


VNel:IF VNZ?O THEN V$S=RIGHTS 


(VARS$, 


VNAYEVA=VNZIGOSUB 3956088: VN=Vı IF VE="F* 


G0OTO 39519 


IF VN=8 GOTO 63999 


V$S=LEFT# (VARS,VZ%) 1 V4=V2%:G0SUB 


396509:V2=VtilF V$=-*"F* 


VAR=VZ/VN:RETURN 


GOTO 38518 


VF=1:FOR V=V4 TO 1 STEP -1 

VPS=MID$ (V$,V,1):3VP%Z=ASC (VPS) 

IF <VPA>47> AND (VP%58) GOTO 38688 
IF VP%4=45 THEN V=VF#(C-1) RETURN 

IF VP7=255 THEN VF=VF#[P11:G0TO 39678 
IF VP%4=63 THEN VF=VF4x2,718281828:60T0 


306798 
V£="F":RETURN 


NEXT V:V=VFIRETURN 


VS=LEFTS (V$,V)EV=VFkVAL (VS) RETURN 


BER SSNELSCMELTERRWOR.D ZH 


 WV%;V$; VF; VL%; 


ziert und dividiert, nicht aber ad- 
diert, subtrahiert und potenziert 
werden, Klammern sind verboten, 
der Malpunkt wird, wie bei mathe- 
matischen Termenüblich, nicht ge- 
setzt, 


PiundealsEkxtras 


Das heißt, das einzig zulässige Re- 
chenzeichen ist „/" für die Division. 
In der vorliegenden Version sind 
zwei Buchstaben als Variable fest- 
gelegt: r steht für die Kreiszahl und 
estehtfürdieEulersche Zahl. Damit 
keine Verwechslungenmitdem „e" 
in der Exponentialdarstellung ei- 
ner reellen Zahl aufkommen, müs- 
sennundeimZähler wieimNenner 
stetsanletzterStellestehen. 


Beispiele: 


ER wird eingegeben als: 2n/3 
„RETURN" (nicht etwa 2/3r 
„RETURN“) 


Sn? 
es Test ‚Snn/Teeeee „RETURN" 


7 
5 

en le-3e/3r, RETURN" 
Das Programm ist als Subroutine 
gedacht. Deshalb müssen die Va- 
riablen von Haupt- und Unterpro- 
grammen aufeinander abgestimmt 
werden. Folgende Variablen fin- 
den Verwendung: 
VN;VN%; 
VP$;VP%; VZ;VZ% 
Gleichnamige Variablen im Haupt- 
programm müssen geändert wer- 
den. DasHauptprogrammübergibt 
ans Unterprogramm die String-Va- 
riable „VAR$*; das Unterpro- 
gramm gibt die numerische Varia- 
ble „VAR" zurück. Im Hauptpro- 
gramm muß deshalb der numeri- 
sche Input A wiefolgtgeändertwer- 
den: 
Aus... .INPUTA:. . . wird 

... INPUT VAR$:GOSUB 30500: 
A=VAR: 
(Horst-ArnimKosog) TEMMEEEEEEEEEEEE 
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Zeilennummern 
im Zehnerschritt 


Die ersten Programmierschritte 
macht man am besten mit großen 
Programmschritten. Das ist eine 
alte Weisheit. Spätestens nach 
dem ersten Probelauf werden 
sich die Lücken mit neuen Zeilen 
füllen. Wer das Durcheinander 
wieder auf die Reihe bringen will, 
kann das mit „Renumber” tun. Re- 
number ordnet alle Programmzei- 
len in Zehnerschritten. Damit nach 
der Umnumerierung das Pro- 
gramm noch funktioniert, müssen 
auch alle Sprünge geändert wer- 
den: GOTO, GOSUB, RUN und 
THEN. Auch ONX GOTO... und 
ON X GOSUB... werden mitver- 
ändert. 

Nach dem Start wird das Maschi- 


print "tclr)"schrs 
(18) +chr$ (8); "Bitte 
warten!” 

s=ÖQ:ı for i=mO to 742: 
read a:s=s+a:poke 
1244096+i ,aınext 

i# s<7>76971 then 
print "tcir,Z2down) 
data-fehler '":end 
print "tcir}" chrs 
tP)+chrs (142); 
poke 198,0:new 
data 160,0,152,155, 
87,169,203, 133,88, 
165,43, 133, 251,185, 


44,133, 252,177 

data 251,133,253, 
230,251,208, 2,230, 
252,177,251,133,254, 
208,7,168, 253,208 
data 3,768,119,192, 
250, 251,208, 2,230, 
232,177,251, 145,87, 
200,177, 251,145 
data 97,24,165,57, 


105,2,133,87,144,2, 
230,88,56,145,97, 
133,80, 133,92, 165 
data 88,235, 203,133, 
81,133,83,6,80,38, 


81,6,80,58,81,24, 
165,20, 101,82, 155 


data 80,185,81,101, 
83,145,251,1&0,0, 
1685,80, 145,251,165, 
255,133, 291,169 


data 254,133, 252,76, 
17,192,24, 165,43, 
109,4,133, 251,165, 
4#4,105,0,133,252 
data 1£0,0,177,251, 
201,137,240, 70,201, 
141,240,66,201,167, 
240,39, 201,158 

data 240, 35,230, 251, 
208, 2,230,252, 160,0, 
177,251,208, 224,160, 
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Richtigen Abstand hal- 
ten ıst nicht nur guter 
Fahrstil... auch guter 


Programmierstil. 


nenprogramm in den Speicherbe- 
reich geschrieben, der vor Reset 
und Basic-Interpreter geschützt 
ist. Am Ende löscht sich der Basic- 
lader selbst. Jetzt kann man die 
Programme, die man „renum- 
bern" will, wie gewohnt laden. Mit 
SYS (12=4096) wird das Maschi- 
nenprogramm gestartet. Nach 


2,177,251 

data 208,3, 76,153, 
194,24,169,251,105, 
5,133,251,144,2,250, 
252,78,132,192 

data 200, 177,251, 
201, 32,240,249, 201, 
48,48, 7,201,58,176, 
3,76,214, 192,160 


data 0,76, 152,172, 
169,0, 133,2,200, 177, 
251,201,0,240, 10, 
201,58, 240, 6.201 
data 44,208, 241,132, 
2,136, 132, 79,200, 
169,1,133,80,133,82, 
169,0, 133,81 
data 133,83,153,9%0, 
133, 91,136, 240,77, 
177,251,201,32,240, 
247,133,89,169 
data 0,133,87,1373, 
88, 142,4, 102,89, 144, 
13,24,155,87,101,80, 
133,87,185,88 
data 101,81,133,88, 
6,80, 38,81,202,208, 
232,165,82,133,80, 
165,83, 135,81 
data 24,165,87,101, 
970,1335,70,165,88, 
101,91,135,91,6,.80, 
3@8,21,6&,80,38,81 
00230 data 24,165,B0,101, 
82,133,80,185,81, 
101,83, 133,81,8,80, 
398,81,1689,80, 133 
data 82,185,861,153, 
83,76,251,.192,182,1, 
160,1,167., 203,133, 
88, 169,0, 153 
data 87.177,87,215, 
70,240,37,1844,21, 
165,2,2940,14,24, 101, 
231,153,251,144 
data 2,230,252,180, 
0,78,210,192,76, 152, 
192,24,169,97,105,2, 


drei Sekunden ist die ganze Ar- 
beit getan. Jetzt das „neue" Pro- 
gramm, am besten unter anderem 
Namen, abspeichern, 


Renumber in drei 


Sekunden 
BEREIT 


Solange man den Computer nicht 
ausschaltet, ist das Programm vor- 
handen und kann mit SYS immer 
wieder aktiviert werden. Einem 
Renumber der gesamten Pro- 
grammbibliothek steht nichts 
mehr im Wege. 

(A. Boldt/J. Ackermann) muuuun 


1535,97,144 
data 2,230,98,7&, 
107,193, 136,202,240, 
209,56, 165,87,253, 
254,1533,80,133 
data 982,165,88, 233, 
202, 133,81,133,85,6, 
890,39,81,6,280,58,81, 
24.185,80, 101 

00290 data 82,133,92,145, 
81,101,83, 133,95, 
142,255,160,16,159, 
0,133,94,133,90 
data 133,91,6,92,38, 
93,38, 94,6,90,38,91, 
165, 74,201,10,144, 
11,54,253, 10 
data 153, 94,250,90, 
208,2,230,91,136, 
208, 228,24,105,48, 
232,157,0,202, 165 

0 data 70,208,7,165, 

91,208,3,76,7,174, 
145,90, 133, 92,165, 
91,133, 93,76,194 

00330 data 173,134,78,232, 
228,79,240,92,48,81, 
230,45, 208, 2,250, 46, 
1685,2,240 
data 2,230,2,164,45, 
169,0,133,90,159,1, 
133,92,165,46, 1553, 
91,1353,93,197 

00350 data 252,240,42,177, 
90,195,92,136,192, 
235,208, 247,198, 93, 
198, 91,1655,252 

00350 data 197,91,144,237, 
208, 37,165, 251,73, 
255,168,24,165,251, 
133,070, 105,1 
data 135, 72,144,2, 
230,73, 76,48,194,56, 
145,45, 229,251,176, 
232,164, 79,169 
data 32,145,251,136, 
208,251,160,1,166, 
78,189,0,202,148, 


c0888 
c988 
c818 
ca18 
c929 
c928 
c838 
c833 
c848 
c948 
c9598 
c958 
co68 
C968 
c978 
c878 
C888 
c988 
c839 
c938 
ceAB 
conA8 
C8B8 
C8B8 
coc8 
c8c8 
c8D8 
c8D8 
CBE® 
C9ES 
Cord 
corF8 
C188 
C188 
C118 
c118 
cC128 
c128 
C138 
c138 
C149 
c148 
c159 
C158 
C168 
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251,200, 202,16 

data 247,165,2,208, 
16,250, 78,24, 1685, 
251,101, 78,133, 251, 
144,2,230, 252,76 
data 152,192,24,101, 
251,133,251,1944,2, 
230,252,1640,0,76, 
210,192, 1685,43 


57 


CB 


00410 data 133,251,133, 


CHKSUM | 


253, 165,44, 133,252, 
133,254,160,0,24, 
165,251, 105,3, 133 
data 251,144,2,230, 
232, 250,251,208,2, 


230,252,177,251,208, 


246,230,251,208 
data 2,230,252,169, 


' £1708 
AB c178 
57 c188 
e2 c188 
28 C198 
FE c198 
58 c1iA8 
F3 cins 
78 C1B8 
BE cı1B8 
er cico 
EB cı1c8 
D5 C1D8 
sc c1D8 
ID cC1EO 
13 CIES 
Ei CiF® 
47 cCiF8 
b2 | ceee 
FS | c29o8s 
42: c218 
F8 c2ıs 
D3 c220 
85 c228 
IF c238 
47 c238 
F? c248 
1A c248 
CF c258 
si c258 
E]:) c268 
BF c288 
ED c270 
76 c278 
85 c288 
83 c2ass 
c4 c2s8 
EC c2s8 
2E ceno 
78 ces 
AD cC2B8 
ca c2883 
cE c2co 
13 c2c8 
F5 c2D3 
AF c2D8 


C2EO 


251,145,253,200, 165, 
252,145, 253,177,281, 
208,1,96, 163 

data 251,133,253, 
165,252, 133, 254,156, 
76,1687,194,0,0,0,0, 
0,0,0,0,0,0,0 
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Fehler ohne 
Programmabsturz 


Es gibt immer noch Software zu 
kaufen, die im Falle eines nicht- 
eingeschalteten Peripheriegeräts 
mit der Fehlermeldung "Device 
not present' aussteigt. Wer sich 
die kleine Routine anschaut, die 
das verhindern kann, ist sich so- 
fort über die „Professionalität“ sol- 
cher Programme im klaren. 


Poke verhindert 


Errormeldung 
RETERTE 


Mit einem einzigen Poke kann 
man den Computer dazu bringen, 
den Fehler zu ignorieren. Dabei 
wird der Warmstartvektor zum 
nächsten RTS (’Return to Subrouti- 


REM x#% DRUCKERTEST %*%% 


Wer professionell pro- 
grammiert, fängt bei 
I/O-Betehlen die Feh- 
lermeldung 'decice not 
present’ab. Dazu wird 
der C64 kurzzeitig auf 


dumm geschaltet. 


ne') verbogen. Im Falle von Pro- 
grammfehlern fährt der C64 jetzt 
fort, als wäre nichts gewesen. 

Nun wird versuchsweise ein Kanal 
zum betreffenden Gerät geöffnet. 
Dem Drucker wird ein Print#-Be- 


fehl, der Floppy ein Initialize-Kom- 
mando hinübergeschickt. Danach 
werden Fehlermeldungen wieder 
zugelassen. Nun wird geprüft, ob 
das angesprochene Gerät rea- 
giert hat. Durch Abfragen der Sta- 
tusvariablen ST erfährt man, ob 
am anderen Ende der Leitung je- 
mand ist. Das Bit 7 der Statusva- 
riablen wird nämlich gesetzt, 
wenn am IEC-Bus das erwartete 
Echo ausbleibt. Hat alles seine 
Richtigkeit, geht der normale Pro- 
grammablauf weiter. Andemfalls 
kann der aufgetretene Fehler be- 
handelt werden. 

Den Drucker und die Floppy ge- 
trennt abzufragen, hat seinen gqu- 
ten Grund: Was nützt alles Bewah- 
ren vor dem Absturz, wenn man 
hinterher nicht weiß, welches Ge- 
rät der Sündenbock war?! 


M PROGRAMMABLAUF 


REM KANAL ERDEFFNEN REM xx* FLOPPYTEST x%#%* 


OPEN 4,4 


REM FEHLERMELDUNG VERHIN 


DERN 
POKE 768,185 


REM SCHRE IBVERSUCH DURCH 


FUEHREN 
PRINT#4:CLOSE 4 


REM FEHLERMELDUNG WIEDER 


ERLAUBEN 
POKE 768,139 
3 


REM STATUS ABFRAGEN 
IF ST<S>-128 THEN 285 
PRINT "DRUCKER NICHT 


EINGESCHALTET!" 
G0T0 215 

PRINT "DRUCKER 
EINGESCHALTET!" 
b 


REM HIER GEHT'S WEITER I 
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REM FEHLERMELDUNG VERHIN 


DERN 


POKE 768,185 


REM KANAL EROEFFNEN 


15 
: 


OPEN 15,8,15,"1":CLOSE 


REM FEHLERMELDUNG WIEDER 


ERLAUBEN 


POKE 768,139 


REM STATUS ABFRAGEN 


PRINT 


IF ST<>-128 THEN 319 
"FLOPPY NICHT 
EINGESCHALTET!" 


> GOTO 328 


PRINT 


"FLOPPY 
EINGESCHALTET!" 


REM HIER GEHT'S WEITER I 
M PROGRAMMABLAUF 


(Andreas Prott) 


Manchmal kommt es in einem Pro- 
gramm darauf an, das letzte biß- 
chen Speed aus dem Rechner her- 
auszuholen. Eine Möglichkeit ist, 
die Interrupt Service Routine (ISR) 
zu verbieten. Damit wird der 
Rechner aber nur minimal schnel- 
ler. Leider wird damit die Tastatur 
nicht mehr abgefragt und TI$ nicht 
mehr gestellt. Viel wirkungsvoller 
ist es, den Videochip zu manipu- 
lieren. Der VIC hält den Prozessor 
jedesmal auf, wenn er Daten auf 
den Bildschirm zaubern muß. Be- 
sonders deutlich wird das, wenn 
viele Sprites aktiv sind. Das ist der 
Grund, warum bei Kassettenope- 
rationen der Bildschirm abge- 
schaltet wird. Dabei hat der Pro- 
zessor nämlich einige zeitkritische 
Aufgaben zu erledigen, bei denen 
er nicht gestört werden darf, Was 
das Betriebssystem kann, kann 


Speed up 


Zwei Pokes bringen 
den C64 auf Turbo- 
Speed. Bildschirm und 
Tastatur bleiben auf 


der Strecke. 


der Anwender schon lange. So- 
bald zeitkritische Programmteile 
auftreten, wird einfach der VIC 
abgeschaltet. Das läßt sich durch 


Tabelle der Ausführungszeiten 


Betriebsart Ausführungszeit 
8 Sprites aktiv 1095 sec 
normal 1037 sec 
ohne ISR 1027 sec 
ohne VIC 990 sec 


ohne VIC, ohneISR 978 


Löschen von Bit 4 in Adresse 
53265 erreichen. Natürlich ist 
dann auf dem Bildschirm nichts 
mehr zu sehen, aber bei Berech- 
nungen und ähnlichem stört das 
nicht weiter. Sollte das Programm 
immer noch zu langsam sein, 
schaltet man halt auch noch die In- 
terrupt-Routine ab. Und zwar ver- 
bietet man den Interrupt direkt an 
der Quelle: der IRQ-CIA. Beide 
Tricks zusammen machen den 
64er um mehr als zehn Prozent flot- 
ter. Hier nun die nötigen POKEs: 
VIC abschalten: POKE 

53265, PEEK (53265) AND 239 

VIC einschalten: POKE 

53265, PEEK (53265) OR 16 

ISR verbieten: POKE 56334, PEEK 
(56334) AND 254 

ISR erlauben: POKE 56334, PEEK 
(56334) OR 1 


5 ERTEHENEEE e 


Taube Taste 


Mit einer Maschinenroutine kann 
man Tasten blockieren, Das hilft 
gegen Fehlbedienung. 

Ein Vorzug des 64er ist die Mög- 
lichkeit, den Basic- Interpreter 
und das Kernal vom ROM in ein 
adressengleiches RAM zu verle- 
gen. Dadurch können Manipula- 
tionen am Interpreter oder Kernal 
vorgenommen werden. 


ROM ins RAM mit REM 
EEE, 


Erfolgt die Umspeicherung mittels 
PEEK und POKE, so dauert das 72 
Sekunden. Ein entsprechendes 
Maschinenprogramm benötigt 
hierfür nur weniger als 0.3 Sekun- 
den! 

Das Programm bedient sich der 
indirekten Adressierung mit 
Nachindizierung. Die Adressen 
SFB/$FC und $FD/$FE sind die 
Hilfszeiger der indirekten Adres- 
sierung. i 
Nutzanwendung ist die Blockie- 


Da hilft kein Hämmern: 
Eine verrückte REM- 
Zeile legt jede 


Taste lahm. 


REM * 


AD=2948 


rung einer beliebigen Taste, wirk- 
sam sowohl im Programm- als 
auch im Direktmodus. Das Basic- 
Programm erzeugt eine REM-Zei- 
le (Zeilen-Nr. 0), welche das Ma- 
schinenprogramm enthält. Die 
REM-Zeilen 10, 12 und 14 des Ba- 
sic-Programmes dürfen nicht weg- 


REM 22220 HE EKKEFERER RER 
REM-ROUTINE GENERIEREN %* 
REM zsrsz22cc Ks ErcKscErrE 


FOR I1=8 TO 75:READ K:ıPOKE AD+1,XıNEXT 


POKE 45,756:POKE 46,8 


PRINT "LCLRI"7:LIST 


0,74,8,8,8,143,32 
168,1,136,132,251,192,253 
169,160,133,252,169,224,133 
254 ,177,251,145,251,177,253 
1945 ,253,208 ,298 ‚245 ‚230 ,252 
230 ,254,165,252,281 ,192,298 
235,234,169,76,191,188,229 
169,68,141,181,229,169,9 
141,182,229,96,172,119,2 
192,147,288,3,1698,1,136 
76,183,229,8,9,0 


BEN .MEMELSNESTERWORLB. ZOOM 
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idy # 1 
dey 


sty $#tb 
sty $#d 
lda # 160 
sta S$#c 
lda # 224 
sta Ste 


r 
Indexzähler = O0 setzen 
LE von $a000 nerken 

LB von $e0öü merken 

HB von $a000 

merken 

HB von #e000 

nerken 


ilda I$#b),y I$a000+y] aus ROM in Akku 
sta (Ftb),y [Akkul nach $a0öo+y (RAM) 
Ida i$td),y {se0ö0+y] aus KOM in Akku 
sta (s#d),y (Akkul nach Feööo+y (RAM) 


iny 


s081& 


gelassen werden und müssen je- 
weils mindestens 23 Zeichen ent- 
halten! 

Diese REM-Zeile enthält eine wir- 
re Folge von Zeichen und Basic- 


Indexzähler erhöhen 
[yl $ 0, dann nächste Zelle 
HB erhöhen, wenn Seitenende 


HB erhöhen, wenn Seitenende 


Ist HB = 192 ($c0) ? 
Nein, dann nächste Zelle J 


Befehl jap s0B3c als 
Umleitung bei $eäb4 in die 
Tastaturpuffer-Routine 

des Kernal einbauen 


zurück zum Basic 

1. Byte aus Tastaturpuffer 
Vergl, nit Code für CLR 
Code # 147, dann -) $0845 
Code = 147, dann 

[yl = 0 setzen 

zur Tastaturpuffer-Routine 


Befehlen (Codes über 127 sind für 
Basic-Befehle reserviert) und er- 
streckt sich über 5 Bildschirmzei- 
len. Sie darf von Basic aus nicht 
verändert werden. Selbst ein in 


Flexibler 


dieser Zeile durchgeführtes „re- 
turn“ zerstört das Maschinenpro- 
gramm! An die erzeugte REM- 
Routine kann ein beliebiges Basic- 
Programm angefügt werden. 

Das Maschinenprogramm in der 
REM-Zeile wird mit SYS 2055 ge- 
startet. Dabei wird das ROM ins 
RAM kopiert und die Tastaturab- 
frage-Routine ($E5B4) des Kernal 
auf das Maschinenprogramm 
„umgeleitet“. 


Blockade für CLR 
EHER 


Die CLR-Taste ist jetzt noch nicht 
blockiert, da der Prozessor nach 
wie vor auf das ROM zugreitt. 
Durch POKE 1,53 wird der Prozes- 
sor auf das RAM umgeschaltet 
und die Umleitung auf die Maschi- 
nenroutine wirksam. Mit POKE 
1,55 greift der Prozessor wieder 
auf das ROM zu und die Blockie- 
rung ist wieder aufgehoben. 

In der Speicherzelle 2112 steht 
der Code der zu blockierenden 
Taste. Durch Verändern des In- 
haltes von Adresse 2112 kann jede 
andere Taste blockiert werden. 
(H. Büche,) UEEEEEHEEEEEEEEEE 


Schreibschutz 


Jeder Anfänger lernt erst mal, 
welche „Hardware"-Methode zur 
Verhinderung von unerwünsch- 
tem Schreiben auf die Diskette be- 
nutzt wird. 

Vielleicht wissen aber noch nicht 
alle C64-Freunde, wie man durch 
Software erreichen kann, daß auf 
die Diskette nicht mehr geschrie- 
ben wird. In der BAM ist die Bele- 
gung aller Blöcke aufgezeichnet. 


BAM voll Nullen 
BErriEERFern 


Für jeden belegten Block steht in 
der BAM an der entsprechenden 
Stelle eine 0. Wenn der Block 
noch frei ist, steht dort eine 1. Wei- 
terhin steht in der BAM für jeden 
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Will man eine Diskette 
vor unüberlegten 
Schreibzugriffen be- 
wahren, kann man mit 
einer kleinen Routine 


einen flexiblen Schreib- 


schutz anbringen. 


einzelnen Track auch die Anzahl 
der noch freien Blöcke. Nun 
braucht man nichts anderes zu 
tun, als in die BAM einzugreifen 
und die Werte so zu verändern, 


daß man zum Schluß eine anschei- 
nend völlig belegte Diskette er- 
hält. 

Dazu liest man zunächst Track 18, 
Sektor 0 von der Diskette/Pro- 
grammzeilen 80—175/, Jetzt ist der 
Block, in dem sich die BAM befin- 
det, bereits im Speicher des C64. 
In den Zeilen 180— 186 erfolgt das 
Verändern der Werte, das heißt, 
man setzt in der BAM alle Werte 
gleich 0. Zum Schluß müssen die 
neuen Werte wieder auf die Dis- 
kette geschrieben werden /Pro- 
grammzeilen 200—230/. 

Zeile 182 sorgt dafür, daß die Stel- 
len in der BAM, die für Track 18 
zuständig sind, unberührt bleiben. 
Diese Programmzeile kann aber 
auch weggelassen. werden. Die 


DIM Q$&<255) 
PRINT 


S5:POKE 53281,6 


"LCLR,YEL, 
11DOWN]I":POKE 53288, 


NEXT 
CLOSE 


5 


FOR I=4 TO 143 


IF 1>71 AND I<76 THEN 


PRINT "L[6SPACES,RVS] 186 
BELEGEN ALLER 
BLOECKE [OFF]" 


FOR I=8 TO 5099:NEXT 
PRINT "ICLR,11DOWN]"? 
PRINT "ICLR,12SPACES] 


GESTARTET." 


OPEN 15,8,15:0PEN 5, 
8,5, "#":PRINT#15,"U1: 


5,"8,18,8 
148 FOR I=8 TO 255 


159 A$="":GET #5,A$: IF 
A$="" THEN A$=CHR$ 


(8) 
Qs(C1I)=A$ 


REM-, PRINT- und POKE-Befehle 
werden nicht unbedingt ge- 
braucht, es können also die Zeilen 
10-30, 40-70 sowie 240 auch ent- 
fallen. 

Wenn man dieses Programm lau- 
fen läßt, erhält man eine laut Di- 


Q$SCI)I=CHR$ (8) 


NERT 


OPEN 2,8,2,"#” 
FOR I=2 TO 255 
PRINT#15,"B-P:"2,1I 


PRINT#2,Q0$(19; 


NEXT 


8 
CLOSE 
PRINT 


PRINT#15,"U2:2,"8,18, 


e 
"ECLR,CBM 6]1*: 


POKE 53288,4:POKE 
53281, 


4 


PRINT#15,"1":CLOSE 15 


rectory völlig belegte Diskette. 
Nach LOAD “$“, 8 und LIST be- 
kommt man nach den enthaltenen 
Filenamen die Meldung 

„0 BLOCKS FREE". Auf diese Dis- 
kette kann man nicht mehr schrei- 
ben, das Lesen wird jedoch nicht 


gestört. Auch können die Disk-Be- 
fehle, wie etwa SCRATCH oder 
RENAME auch weiterhin durch- 
geführt werden. Durch VALIDA- 
TE kann der ursprüngliche Zu- 
stand wieder hergestellt werden. 
(Peter Pusztay/Budapest) EuEEEEEEEN 


| 


Blocksave und 


Zwei kurze Basic-Routinen erlau- 
ben es, beliebige Speicherberei- 
che, wie zum Beispiel ein Pro- 
gramm, auf Kassette oder Diskette 
abzuspeichern und zu laden. 

Die Routinen sind als Unterpro- 
gramme ab Zeile 60000 ausge- 
führt und können so leicht an be- 
stehende Basic-Programme ange- 
hängt werden. Ab Zeile 60 000 be- 
findet sich die SAVE-Routine, ab 
Zeile 61 000 die LOAD-Routine. 


Kassette oder Disk 
RT Er 


Zunächst wird abgefragt, ob mit 
Kassette (K) oder Diskette (D) ge- 
arbeitet werden soll. Dann folgt 
die Eingabe des Filenamens. 
Wird hier direkt mit RETURN ge- 
antwortet, so wird der Block ohne 


Blockload 


Maschinenprogramme 
muß man aus einem be- 
stimmten Bereich saven 
und in denselben wie- 
der laden. Da hilft keın 
'save’ und kein 'load', 


sondern nur ein 


Programm. 


Dateiname gespeichert, bezie- 
hungsweise das nächste File gela- 
den. Das ist nur mit der Datasette 
möglich, da die Floppy einen File- 


BNN SSRESEEERERU TEL 2 


namen verlangt. Jetzt müssen nur 
noch die Start- und Endadressen 
eingegeben werden. Dabei ist zu 
beachten, daß die Endadresse im- 
mer die Adresse des ersten Bytes 
nach dem zu speichernden Block 
ist, Bei der LOAD-Routine wird 
keine Endadresse abgefragt, sie 
ergibt sich aus der Länge des zu 
ladenden Files. 


Nachladen ohne 


Programmverlust 
Ben rung: 


Anzumerken wäre noch, daß sich 
mit BLOCKSAVE gespeicherte 
Blöcke auch mit LOAD *filename", 
Gerätenummer,] wieder laden 


lassen; allerdings ist hier zu be- $ 
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REM ssarssun EHER 
REM # BLOCKSAVE-MODUL # 
REM tsszSEu ns 028 280288 


b 
PRINT "KASSETTE ODER 


DISKIZSPACESI<K/D)* 


»21INPUT DVsıDysitIF DV$=*"D* THEN DV=8 


PRINT "FILENAFE "711 
THEN POKE 193,8:G0T0 
FA=559 

FOR I=1 TO LEN <FIs:i 
MIDS (FIS,1,1)):NEXT 


NPUT FIS: IF Fis="" 
69238 


POKE FA+I-1,ASC 


POKE 183,LEN (FIs>:POKE 188,1NT <FA/ 
ESE)tPOKE 187,FA-PEEK (188)3256 
POKE 185,1:POKE 186,DV 


INPUT "STARTADRESSE "7 
AL=AN-AH+2SE 


ANIAH=INT (ANY2S6): 


INPUT "ENDADRESSE *"JFENIEH= INT (EN/ESE): 


EL=EN-EH»256 

POKE 193,AL:POKE 194, 
175.,EH 

sY3 62957 

ı 

2 


AH:POKE 174,EL:POKE 


REM ssxrssenReneeRREE 
REM # BLOCKLOAD-MODUL * 
REM suranannSnrsueeeeee 


PRINT "KASSETTE ODER 


DISKL2SPACESICK/D)” 


st INPUT DVSıDV=1:IF DV#="D* THEN Dv=8 


PRINT "FILENAME :";:1 
THEN POKE 183,8:60T0 
FA=-5908 

FOR I=1 TO LEN <Fis9: 
MIDS (FI#,1,1)):NEXT 


NPUT FISt IF FIS="" 
810839 


POKE FA+1-1,ASC 


POKE 183,LEN (FIsS)ıPOKE 188,1NT (FA/ 
eS6)ıPOKE 187,FA-PEEK (188)3:256 
POKE 183,1:POKE 1886,DV 


INPUT "STARTADRESSE*"? 
AL=AN-AH=2S8 

POKE 781,AL:POKE 782, 
sYs s2s22 


AN:AH=INT (ANY/2S6) 1 


AH:POKE 788,8 


achten, daß der Variablenstart- 
Pointer des Basic-Interpreters mit 
der Adresse des letzten gelade- 
nen Bytes belegt wird. Vorhande- 
ne Basic-Programme werden un- 
brauchbar gemacht. Dies wird 
durch BLOCK-LOAD verhindert. 
Bei Aufruf aus einem Basic-Pro- 
gramm erscheinen keine Meldun- 
gen des Betriebssystems, wie „sa- 
ving“, beziehungsweise „found", 
Beim Saven und Laden von Ma- 
schinenfiles sind drei Dinge zu be- 
achten: 


Verbotene Zonen für 
Maschinensprache 


l. Die Routine ist nicht verwend- 
bar, wenn'das Maschinenpro- 
gramm am Basicstart liegt. Es 
sei denn, man verlegt den Ba- 
sicstart. 

2. Ein Programm, das im Kasset- 
tenpuffer liegt, kann nicht auf 
Kassette abgespeichert wer- 
den. 

3. Programme, die in den Bild- 
schirmspeicher hineinreichen, 
werden von eventuellen Bild- 
schirminhalten überschrieben. 

N] 


Will der C-64-Anwender wissen, 
wieviel Speicherplatz noch zur 
Verfügung steht, so benutzt er den 
Befehl. FRE (0). Ist der freie Spei- 
cherbereich größer als 32767, er- 
hält man einen negativen Wert. 
Man muß diesen Wert von 65536 
abziehen, um den freien Speicher- 
platz zu ermitteln. Das ist eine un- 
angenehme Eigenart des Basic-In- 
terpreters. Das Programm „Spei- 
cherbelegung“ informiert nicht 
nur darüber, wieviel Bytes noch 
frei sind, sondern gibt an, wieviel 
Platz ein Programm oder die Va- 
riablen belegen. 

In der Basic-Erweiterung „Exba- 
sic-Level II" gibt es den Befehl 
MEM. Dieses Programm wirkt wie 
der MEM Befehl. Hat man fehler- 


164 QUD Spezial ı 
WER SNEESNIITERWIRLS SO U 


Speicherbelegung 
auf einen Blick 


Information über Bewe- 
gungen im Speicher 
helfen beim Optimieren 
von Programmen. Eine 
Subroutine in Maschi- 
nensprache holt die 


aktuelle Speicher- 


belegung auf den 


Bildschirm. 


frei eingetippt und vorsichtshal- 
ber abgespeichert, so tippt man 
SYS 49223 ein und drückt die Re- 
turntaste. Auf dem Bildschirm er- 
scheint dann: 


SPEICHER: XXX BYTES 
PROGRAMM: XXX BYTES 
VARIABLEN: XXX BYTES 
ARRAYS: XXX BYTES 
STRINGS: XXX BYTES 
FREI: XXX BYTES 


Anstelle des Zeichens X stehen 
Zahlen, die sagen wieviel Bytes 
die einzelnen Bereiche belegen. 
Bild 1 zeigt wie der Basic-Speicher 
aufgeteilt ist. Die Grenzen der ein- 
zelnen Bereiche stehen in zwei 
aufeinanderfolgenden Speicher- 
stellen als 16-Bit-Zahl. Will man 


87 CHKSUM 
45 


REM #*+%+ SPEICHERBELEGUNG ##%*%* 
DATA 66,89,84,69,83,83,89,69,73,67 
DATA 72,69,82,32,32,58,89,32,79,71 
DATA 82,65,77,77,32,32,598,86,65,82 
DATA 73,65,66,76,69,78,32,58,65,82 
DATA 82,65,89,83,32,32,32 ,32,58,83 
DATA 84,82,73,79,71,33,32,32,32,58 
DATA 78,82,69,73,32,32,32,32,32,32 
DATA 58,169,13,32,210,255,162,5,168 
DATA 11,32,295,192,162,12,169,9,32 
DATA 218,192,32,179,192,162,16,160 
DATA 11,32,205,192,162,2,1608,0,32 
DATA 218,192,32,179,192,162,27,168 
DATA 11,32,205,192,162,4,1808,2,32 
DATA 218,192,32,179,192,162,38,168 
DATA 11,32,2085,192,162,6,168,4,32 
DATA 218,192,32,179,192,162,49,1698 
DATA 11,32,205,192,162,12,169,8,32 
DATA 218,192,32,179,192,162,69,1698 
DATA 11,32,205,192,162,8,168,6,32 
DATA 218,192,32,179,192,96,169,21 
DATA 133,211,32,188,229,162,9,189 
DATA 8,192,32,218,255,232,224 ,5,298 
245,169,13,32,218,255,96,189 
8,192,32,218,255,232,136,192 
8,288,244,96,232,181,43,133 
247,282,181,43,56,249,43,0,133 
99,176,2,198,247 ,289,165,247, 


249,43,8,133,98,32,2093,189,96 
S=d:FOR I=49152 TO 49489:READ D 
POKE 1,D:5=S+D:NEXT 
PRINT "DIE DATAZEILEN SIND "5 
IF SC>26985 THEN PRINT "FEHLERHAFT* 
ıSTOP 
PRINT "IN ORDNUNG" :PRINT 
PRINT “AUFRUF DER ROUTINE ERFOLGT 
MIT SYS 49223" 


Bi TONER FE AL. SO 


beispielsweise wissen, wo der Ba- 
sic-Bereich beginnt, so kann dies 
folgendermaßen errechnet wer- 
den: 

PRINT PEEK (44) « 256 + PEEK 
(43). Durch Veränderung dieser 
Speicherstelle kann der Beginn 
des Basic-Bereichs nach oben ver- 
schoben werden. Beachten sollte 
man noch, daß dieses Programm 
im Gegensatz zum FRE — Befehl 
keine Garbage Collection durch- 
führt. Unter einer Garbage Col- 
lection versteht man eine Bereini- 
gung des String-Speichers. Strings 
werden am Ende des Basic-Spei- 
chers abgelegt. Wird nun einer 
Stringvariablen mehrmals ein 
Wert zugeordnet, so wird nur im 
Variablenbereich ein Zeiger ge- 
ändert, der auf den neuen String 
zeigt. Die alte Zeichenkette ver- 
bleibt als inaktiver String im 
Stringspeicher, 


String-Müll füllt 


Speicher 
RE 


So kann sich mit der Zeit ziemlich 
viel String-Müll ansammeln. Ist 
der Speicher voll, so wird vom 
Computer automatisch eine Gar- 
bage Collection durchgeführt. Da 
diese Routine einige Zeit in An- 
spruch nehmen kann, sollten 
Mehrfachzuweisungen von Strings 
möglichst vermieden werden. 
Herbert Kunz 
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Vier Tasten — ein Dutzend 
Funktionen 


Nichts ist lästiger beim Arbeiten 
am Computer als das ewige Ein- 
tippen von immer gleichen Texten 
und Befehlen. Es gibt einen einfa- 
chen Weg, diese Arbeit zu er- 
leichtern. Mit diesem Maschinen- 
programm können die Funktions- 
tasten des Commodore 64 mit 
zwölf Texten zu je 20 Zeichen be- 
legt werden. 

Nachdem mit dem Basic-Lader 
der Maschinencode an die ent- 
sprechenden Speicherstellen ge- 
bracht worden ist, kann das Pro- 
gramm mit SYS 50000 aktiviert 
werden. Nun kann man mit '@A, 
"TEXT“ eine Taste belegen. A 
kann eine Zahl oder Variable mit 
dem Wert | bis 12 sein. Der Wert 
1,3,5 und 7 entspricht den unge- 
shifteten Funktionstasten. 2,4,6 und 
8 erreicht man mit der SHIFT-Ta- 
ste, und 9 bis 12 entsprechen den 
Funktionstasten in Verbindung mit 


188 DATA 182,13,169,8, 
169,0,153,168,196 

1B1 DATA 202 ,240,8,152, 
24,105,20,163 

1082 DATA 76,94,195,120, 
169,217,141,20 

1083 DATA 3,169,195,141, 
21,3,169,123,1491 

184 DATA 8,3,169,195, 
141,9,3,88,96 ,32 

185 DATA 115,8,201,64, 
248 ,6,32,121,8 

106 DATA 76,231,167,32, 
115,08,32,158,193 

197 DATA 224,0,2098,3,76, 
86,196 ,224,13 

188 DATA 176,61,169,08, 
202 ‚248,6 ,24,105 

183 DATA 298,76,155,195, 
168,132 ,251,32 
DATA 253,174,32,158, 
173,32,163,182 
DATA 291,21,176,34, 
133,252,134,247 
DATA 132,248,166, 
251,160,8,165,252 
DATA 2498,12,177,247, 
157,169,196 ,232 
DATA 209,198 ,252,78, 
199,195,169,9 
DATA 157,168,198,768, 
174,167 ,76,72 
DATA 178,165,294, 


166 GM Spezial ı 


Die Belegung der 
Funktionstasten ist ein 
professionelles Mittel, 
Programme attraktiver 
zu machen. Eine Rou- 

tine zaubert zwölf Texte 


auf die vier Tasten. 


der Commodore-Taste. Bei einem 
Wert größer 12 kommt die Fehler- 
meldung "ILLEGAL QUANTITY'. 
Diese Fehlermeldung sieht man 
auch, wenn der Text, mit dem die 
Taste belegt werden soll, mehr als 
20 Zeichen hat. Der Text kann ein 


2408,3,76,493,234 
DATA 165,203,201,4, 
208,5,169,1,78 

DATA 8,196 ,201,5, 
208,5,168,3,786,9 
DATA 196,281,6,288, 
5,168,5,76,9,196 
DATA 291,3,208,5, 
160,7,76,9,196,76 
DATA 49,234,173,141, 
2,201,1,208,4 

DATA 200,76,33,196, 
2081,2,208,9,152 
DATA 56,233,1,74,24, 
105,9,168,132 

DATA 247,32,135,234, 
165,2083,201 ,64 

DATA 2908,247,166, 
247,169,8,202,248 
DATA 6,24,105,208,76, 
48,196,168,185 

DATA 168,196,248,28, 
201 ,95,2408,7 

DATA 32,219,255,2080, 
76,98,196,1689 

DATA 1,133,198,169, 
13,141,119,2,76 
DATA 28,224 ‚32,121, 
0,240,3,76,8,175 
DATA 169,0,133,248, 
162,1,134,247 

0ATA 169,13,32,218, 
255,169,0,166 
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String oder eine Stringvariable 
sein. Soll dieser Text mit 'RE- 
TURN' abgeschlossen sein, so ist 
als letztes Zeichen die 'Pfeil nach 
links'-Taste einzugeben. Die Bele- 
gung kann auch innerhalb eines 
Programms erfolgen. So können 
die Funktionstasten gleich in dem 
Basic-Lader aktiviert werden, wie 
in Zeile 147. Will man wissen, wie 
die Tasten belegt sind, so gibt 
man ein '@0'. Nun wird die Bele- 
qung der Funktionstasten aufge- 
listet, Wird die RUN/STOP- und 
RESTORE-Taste betätigt, so funk- 
tioniert das Programm nicht mehr. 
Mit 'SYS50020' kann die alte Bele- 
gung wieder hergestellt werden. 
Eine Aktivierung mit 'SYS 50000" 
löscht sämtliche Tastenbelegun- 
gen. Eine einzelne Taste kann 
man löschen, wenn man einen 
Leerstring eingibt. 

Zum Beispiel: '@l,*"", 


DATN 247,32,205,1899, 
169,61,32,2108 
DnTn 255,169,34,32, 
218,255,168,248 
DATA 1898,169,196, 
240,6,32,210,255 
DATA 232,208,245, 
169,34 ,32,2198,235 
DATA 169,13,32,219, 
255,230 ,247,165 
DATA 247,201 ,13,288, 
3,78,174,167 
DATA 165,248,24,105, 
20,133,248,76 
DATA 187,186 
S-@:FOR 1=-59988 TO 
59343:READ D 
POKE 1,0:5=S+D:ıNEXT 
PRINT "DIE 
DATAZEILEN SIND *; 
IF 5(>43735 THEN 
PRINT "FEHLERHAFT*: 
star 
PRINT "IN ORDNUNG "+ 
sYs 58088 
D) 
@E1,*"L1STr*:@3,"RUN«" 
185,"DATA "187, 
"LOAD" 
BB:REM FUNKTTONSTAST 
ENBELEGUNG ANZEIGEN 


3727 


332 


Tips und Tricks 
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(Herbert Kunz) 


Ein Befehl, den man in fast jeder 
Basicerweiterung findet, ist DE- 
LETE zum Löschen ganzer Pro- 
grammabschnitte. Doch der C64 
kann's auch so! Man fügt als erste 
Programmzeile ein: 


i PRINT "ICLR,3DOUN]J’"F: 
PRINT "F="F+1":L="L’: 
IFF<=LTHENI THOME]":POKE 
198 ,2:POKE 631,13:POKE 
632 ,13:END 


Diese Zeile muß genauso einge- 
tippt werden; die Symbole in 
Klammern bedeuten die entspre- 
chenden Cursorsteuerzeichen. 
Dann tippt man im Direktmodus: 
F=(Nummer der ersten Zeile): 
L=(Nummer der letzten Zeile): 
GOTO ] 

Der Rechner löscht nun alle Zeilen 
von F bis L. F=100-L=150:G0OTO1 
löscht beispielsweise alle Zeilen 
von 100 bis einschließlich 150. 


Interpreter 
überlisten 


Die Schwachstelle des 
C64 sei sein Basic, sa- 
gen die einen. Die an- 
deren sehen genau 
darin seine Stärke. Tips, 
wie man von Fall zu Fall 
den Basic-Interpreter 


austrickst, können Fans 


und Kritiker gleicher- 


maßen gebrauchen. 


Auch die Funktion CENTRE, be- 
kannt aus SIMON'S BASIC, zur 
zentrierten Ausgabe von Text läßt 


Be PUT ENTER 


sich leicht simulieren: Statt CEN- 
TRE A$ muß man in Standard Ba- 
sic schreiben: 

PRINT TAB((40—LEN(A$))/2);A$. 


Sinnvoller 


Variablenname 
ee ae er Pi 


Um Programme selbstdokumen- 
tierend zu schreiben, ist es oft 
nützlich, Variablen einen sinnvol- 
len Namen zu geben. Versucht 
man aber so etwas wie '10 TOP- 
=100:BOTTOM= 12’, so bekommt 
man als Resultat den bekannten 
?SYNTAX ERROR vom Interpre- 
ter, da das Schlüsselwort 'TO’ in 
den Variablen vorkommt. Doch 
das läßt sich beheben, wenn man 
die Variablennamen wie folgt ein- 
gibt: 

10 T(shift POP = 100:BOTT(shift J) 
OM=12 
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Das geshiftete ] bleibt beim Listen 
unsichtbar, verhindert aber die 
Fehlermeldung. Trotzdem beach- 
tet der Interpreter nur die ersten 
beiden Zeichen des Variablen- 
namens. 

Wer hat nicht schon einmal Zeilen 
mit mehr als 80 Zeichen ge- 
braucht? Eingegeben sind sie 
schnell mit Abkürzungen; zum Bei- 
spiel „?“ anstatt PRINT, 


Die Basic Zeile darf 
nicht länger als 80 
Zeichen sein?! 


Aber wehe, wenn ein Fehler in so 
einer überlangen Zeile auftaucht! 
Sie kann nicht mehr editiert wer- 
den. Alle Zeichen nach dem acht- 
zigsten werden vom Interpreter 
ignoriert. Diese Malheur läßt sich 
einfach ausbügeln: Sobald man 
die Zeile zum ersten Mal einge- 
tippt hat, fährt man mit dem Cur- 
sor auf die Zeilennummer und än- 
dert sie in eine Nummer, die nicht 


im Programm vorkommt. Diese 
Zeile sollte außerdem am Ende 
des Programms stehen und nie- 
mals angesprungen werden. 
Dann fügt man als erstes Zeichen 
ein Änführungszeichen in die Zei- 
le ein. Der Interpreter behandelt 
jetzt diese Zeile als Text, das 
heißt, beim Listen werden Abkür- 
zungen nicht „ausgeschrieben". 
Will man nun die Originalzeile än- 
dern, fährt man mit dem Cursor in 
die Textzeile, ändert die Zeilen- 
nummer und löscht das Anfüh- 
rungszeichen. Danach kann die 
Zeile wie gewohnt editiert wer- 
den. 

Mittlerweile gibt es mindestens 
drei Betriebssystemversionen für 
den © 64. Die älteren haben einen 
interessanten Fehler im Editor. 
Gibt man in der untersten Bild- 
schirmzeile mehr als 80 Zeichen 
ein und versucht dann, die letzten 
Zeichen mit DEL zu löschen, hängt 
sich der Rechner auf. Die Reaktio- 
nen sind dabei recht unterschied- 
lich. Das Problem läßt sich ver- 
meiden, wenn man mit folgenden 
Cursorfarben arbeitet: black, 


white, purple, green, orange, 
brown, grey2, light green. Wie ge- 
sagt, das Problem tritt nur bei 
Rechnern mit älteren Betriebssy- 
stemversionen auf. 


Reset mit # 
Eee 


Was aber, wenn sich der Rechner 
schon „verabschiedet" hat, und 
man sein gerade eingetipptes Pro- 
gramm nicht verlieren will? Auch 
dazu einige Tips: 

—(shift 3) drücken. Wenn die 
Nachricht 'PRESS PLAY ON 
TAPE’ erscheint, PLAY an der Da- 
tasette drücken und den Rechner 
mit RUN/STOP zurückholen: 
—Wer keine Datasette hat, kann 
einen Joystick in Port | solange 
bearbeiten, bis ebenfalls die 
'PRESS PLAY..'-Nachricht er- 
scheint. — Letzter Ausweg ist ein 
RESET-Taster. Nach dem Reset 
lädt man ein UNNEW-Programm 
und erweckt das eingetippte Pro- 
gramm wieder aus seinem Dorn- 
röschenschlaf. 


cs: BERREEENTEere 


Tipphilfe für Datas 


Wenn man die Ausgabe für eine 
Hardwareerweiterung scheut, 
aber doch nicht auf den Komfort 
einer Zehnertastatur (die Zahlen 
sind wie auf einem Taschenrech- 
ner angeordnet) verzichten will, 
gibt es die Möglichkeit der soft- 
wareseitigen Tastaturbelegung. 
Die Commodoretastatur wird mit 
Zahlen statt mit Buchstaben belegt 
(siehe Abbildung). Als Besonder- 


NR=112 

DATA 120,173,143, 
802,174,144,002,236 
DATA 238,0893,248, 
814,191,239,083,142 
DATA 249,083,173, 


237,003,174,238,003 
DATA 298,006,173, 
239,003,174,249,093 
DATA 141,143,802, 
142,144,002,098,996 
DnTA 4999 
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WEN MEHRZENVTTERATUD. 224 


Datazeilen sind fehler- 


trächtig. Wer dıe Quote 


reduzieren will, kann 
das mit einer Software- 


Zehnerfästatur. 


DATA 174,141,082, 
224 ,005,208,921,236 
DATA 242,003,248, 
085,173,241,003,073 
DATA 128,191,241, 
083,173,032,2908,973 
DATA 097,141,032, 
208,142 ,242,003,173 
DATA 241,093,016, 
061 ,185,203,162,815 
DATn 8773 

DATA 169,090,221, 


heit hat Autor Ralf Kellerbauer auf 
die Taste der „6" den Befehl 
DATA gelegt. 


Hex und Data 
FEB 


Programmbeschreibung: Das Pro- 
gramm ist ein Maschinenpro- 
gramm im Bereich des Kassetten- 
puffers. Mit der Tastenkombina- 


209,003,2408,005,202 
DATA 816,248,048, 
049,189,216,083,224 
DATA 8081,144,815, 
209,931,2356,141,882 
DATA 140,1941,082, 
249 ,002,1693,064,976 
DATA 122,003,204, 
243,003,2993,016,185 
DonTtn 14454 

DATA 232,093,032, 
053,233,200,192,095 


DATA 208,245,169, 
054,1490,243,003,133 
DATA 2083,188,239, 
083,019,055,848,036 
DATA 034,037 ,942, 
039,033,039,035,0495 
DATA 0858,041,046, 
840 ‚064 ‚001 ,855,035 
DATA 17948 

DATA 956,059,0909, 
811,816,019,014,9019 
DATA 828,920,018, 
021,022,069,065,084 


DATA 065,100,083, 
072,235,008,000,008 
DATA 008,098,072, 
235,009,000,098,009 
DATA 08008,0808,908, 
200,200 ,008,009,000 
DATA 19287 

FOR A=828 TO 1827 
STEP 48 

FOR B=8 TO 39 
:READ Q:15=5+Q 

tPOKE A+B,Q 

INEHT 


:REND Q 

IF NOT S=Q THEN 
PRINT "FEHLER IN 
ZEILE "NR"-"NR+StEND 


:NR=NR+G 

NEXT 

PRINT tPRINT "ALLES 
OK 1" 

PRINT PRINT "MIT 
t2SPACESISYS 828 
L2SPACESISTARTEN" 
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sc 


tion „SHIFT-CTRL" wird auf eine 
Tastatur mit lDer Tastenblock um- 
geschaltet, in einer Belegung, wie 
sie einige Rechner (zum Beispiel 
Epson) bereits haben. Ist die l0er 
Tastaturbelegung eingeschaltet, 
so wird die Randfarbe als Ein- 
schaltkontrolle verändert. Zusätz- 
lich sind die Buchstaben A—F di- 
rekt neben dem Zahlenblock, so- 
ldx vektor#l ; wie ein Generator für das Wort 
Be ie me Sirpsihahtet „DATA’ auf der Taste „6* vorhan- 
; vebernehmen low den. Das Programm ist als Basic- 
- neuer vert low Lader und als Assemblerlisting 
2, vorhanden. Es wird mit SYS 828 
een gestartet und mit SYS 828 oder 

Pe us: RUNSTOP-RESTORE gestoppt. 


+} tastaturvektor low 
1 ; 3 [7 ’ ’ 


vektor j alter wert low 


BRaR 33 BEREEREEEE EeSE 
BER 3R RIRSRPRES 
RR 88 8888 888 


ESRE RR BERPERSARKS 


Schneller trotz 
schräger Lage 
ERESEHREN 


i- 
02 mainprg = Bas: 7 'etelt 7" 
tne weiter ; keine wmschaltung aktiv-standby 
; 
; umschaltung zwischen "aktiv" und "standby" 


BER 
883 
GBR 


Praxis: Etwas gewöhnungsbedürf- 
tig ist die schräge Lage des Tasta- 
turblockes, was jedoch nach kur- 
zer Zeit keine Schwierigkeiten 
mehr macht. Tippfehler werden $ 
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’ 
O36b «= £2 03 cpx repeat ; "taste beim letzten irg schon 


gedrueckt 7" 


RUN "OSB. DRLD 20 


end 
fl 


# 

Ela 
#307 
rand 


SER 


g 
SEr32S 
88 83 858 
BGB 


# 
Ag 


SRF RSRZSRS 


flag 


8 
3 


SE38E KRR 
HERFISER ER 


RauSpags 288 Sysc 
BEL BRBRE 
BESER HR26 Tr 
se 88 RR e 
Band, - 
A ” - Ä 5 & 
ASEHE7S IEFSR rar 


E55 5350 


8 


0398 bd 
03% «0 
034 90 
039E &0 
O3al ec 
: 03as Bc 
03a? £0 
0339 a9 
O3ab 4c 
Olae cc 
0381 dO 
0363 9 
026 20 
09 c8 
Olba c0 
: Olte 
Olte n9 
0%0 & 
0%3 85 
0%&5 & 


AO 


S 
"Eh 


jep (old) 


und drehen 
; (dient als we gategen 


des matrixwertes sis 
repeat ; "O'skein s shi ea ‚ "S'eshift-tri 


$ prueft auf 'ein! 
; falls standby 


; alle ausser 0,1 


sel" 'shife! 7" 
; 'chm' oder "shift" Ioeschen 


j auf tastaturpuffer legen 


; "5 zeichen ?" 
; weitere zeichen 
; = keine taste gedrueckt 


datamem ; zorhler fuer data 
taste 


; austauschwert spe 
+ normal in der decoding weiter 


tabelle der tastencodes 


EEE 


‚bytes4,0 


o0009099 
BEBEERE 
BEUEERT 
EFSSKHNS 
LEEHSBUS 


=R 


HAN Eh 5, Be 


„bytes5,50,41, ars & Bil 


ee ajklulo 


1,55' ; rop,re MAT, 
„byte35,56,59, 8,11,16, fer 14 ; 012U56e 
„bytei0) a 28,20,18,21° ; ; abedf 


; arbeitsspeicher der routine 


‚vordeainprg 
„vordtebs8 
400 


seltener und die Eingabege- 
schwindigkeit ist wesentlich höher 
als mit der Originaltastaturbele- 
gung. Anpassung an VC20: (vgl. 
Assembler- Listing) Dazu müßte es 
ausreichen, in der Routine „JSR 
$EB35* (Daten auf Tastaturpuffer 
legen) die Ädresse zu ändern und 
gegebenenfalls die Matrixcode- 
Werte zu modifizieren. Eine An- 
passung der Zellen $03EF-$03F0 
ist nicht unbedingt nötig. 

Funktionsprinzip: Der Matrixwert 
der Tastatur wird mit einer Tabel- 
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1 hauptprogramm 
j preset basic v2 tastatınvektor 


le verglichen, in der die Matrix- 
werte der zu modifizierenden Ta- 
sten stehen. Ist die Taste zu modifi- 
zieren, wird der Matrixwert aus- 
getauscht. Um beispielsweise der 
Taste „M" den Wert 0 zuzuordnen, 
wird der Wert 36 (Taste M) gegen 
35 (Taste 0) ausgetauscht. Bei der 
„DATA“ Funktion werden die 
Buchstaben des Wortes „DATA" 
als Ascii-Zeichen auf den Tastatur- 
puffer gelegt. 

Besonderheiten: Da die Routine 
nur dann bearbeitet wird, wenn 


eine Taste gedrückt ist, verlangsa- 
men sich die Programme nicht. 
Bei der Entwicklung des Pro- 
grammes war es deshalb notwen- 
dig, bei der Erzeugung des Wor- 
tes „DATA" recht aufwendig-vor- 
zugehen, um einen Repeat zu un- 
terdrücken. 


Zusammenarbeit mit 


anderen Programmen 
BETRERHERSTERRFEUEEENN 


Dazu dient der Zähler DATAMEM 
in Adresse $03F3. Er wird norma- 
lerweise bei jedem Durchlauf der 
Routine auf Null gesetzt. Wenn 
aber die Taste „6" gedrückt wird, 
so wird in DATAMEM nach Aus- 
gabe des Textes „DATA" der 


IOer-Tastatur Belegung der 
C64-Tastatur 


Wert Fünf untergebracht. Wird 
beim nächsten Interrupt wieder 
die Taste „6" registriert, so er- 
kennt das Programm an diesem 
Wert, daß der Text schon ausge- 
geben wurde. 

Nach RUN/STOP-RESTORE muß 
das Programm wieder mit SYS 828 
aktiviert werden. 

Die Zusammenarbeit mit Basic V2, 
Simon's Basic, Datamat, Textomat, 
Ass 64/Mon 64 ist möglich. 

(Ralf Kellerbauer) ÜEEEEEEENEEEEEEEEN 


Komfort-Listing 


Wenn man ein langes Listing in 
Etappen sehen will, bietet der 
Commodore den Befehl LIST A-B 
an. Dabei ist A die erste und B die 
letzte Zeilennummer, die gelistet 
werden sollen. Nach jedem Ein- 
blick muß man jedoch die Ab- 
schnitte neu eingeben; eine sehr 
mühsame Angelegenheit. Viel 
komfortabler und professioneller 
löst das die LIST-Utility: Der Be- 
fehl wird wie gewohnt eingege- 
ben; erst nach Drücken von fl be- 
ginnt der Listvorgang. 

Bei Loslassen der Taste bleibt das 
Listing stehen. Sollen Korrekturen 
vorgenommen werden, stoppt 
man mit der STOP-Taste. Um an 
der Stelle fortzufahren, an der 
man vorher aufgehört hat, muß 
man wieder LIST und RETURN 


KOPIER-ROUTINE 


($5C),Y 


s01 
($5C) ‚X 
sol 


NAECHST 
s5D 


- FERTIC 
NAECHST 
so1 
483C 
$A602 
#803 
$AsD3 


sum=B 
FOR I:928 TO ©8658 
REARD X 


Die List-Routine des 


Commodore-Betriebs- 


systems ist unbefrie- 
digend: Ohne Halt läuft 


ein Listing über den 
Bildschirm. Wer es 
stoppen will, braucht 
die List-Utılity. 


eingeben: danach kurz f7 und wie- 
der fl. Für die Interessierten der 
Programmablauf: Das Programm 


kopiert zuerst das BASIC-ROM in 
den RAM- Bereich (eine auch 
sonst ganz nützliche schnelle Rou- 
tine) und ändert eine Sprung- 
adresse der normalen LIST-Routi- 


ne. 
Falls ein RUN/STOP + RESTORE 
gegeben wird, muß deshalb da- 
nach wieder der RAM-Bereich mit 
POKE 1,54 aktiviert werden. Zum 
Listingdrucken sollte man die Uti- 
lity abschalten (z. B. durch RUN/ 
STOP + RESTORE). 

Das Programm selbst liegt im Kas- 
settenpuffer, der bei Diskettenbe- 
trieb ungenutzt ist. Datasette-Besit- 
zer müßten das Programm an eine 
andere Stelle schieben, wobei ein 
JMP-Befehl und zwei Hilfsregister 
geändert werden müssen. 
(Horst-Peter Wiesnet) uuimmuEEEEEEEEN 


LIST-UTILITY HAUPTPROGRAMM 


Adresse low 

‚in Zeropage 
Adresse high 

‚in Zeropage 
Anzahl der zu 
;kopierenden Blöcke 


LOoOrF 


256 Bytes=lBlock 
kopieren 
‚auf RAM schalten 


;sauf ROM schalten 


nächster Block 


:Sprungadresse in 


:der LIST-Routine 
ändern 


ıgedrueckte Taste in Akku 
‚in 02 zwischenspeichern 
;SIOP_Taste gedrusckt? 


s£l_Taste gedrueckt? 
‚wenn ja weiter 
;£E7_Taste gedrueckt? 
wenn nein, zurueck in 
iWarteschleife 

‚wenn ja Adresse der 
szulerzt gelisteten 
ıZeile zurueckholen 


;zuletzt gelistete Zeile 
zwischenspeichern 


IF SUM<>5588 THEN PRINT "FEHLER IN 
OATAS 2.TEIL!":END 


syS5 491352 


SUM=SUM+® 

POKE 1,% 

NEXT I 

IF SUM<I#S?7S THEN PRINT "FEHLER IN 
DATAS 1.TEILTTIEND 

sum=® 

FOR 1=249152 TO 49194 

READ x 

SUM=SUM+X 

POKE 1,8% 

NEXT I 


DATA 165,197,133,2,32,44,168,165,2 
DATA 281,4,2408,17,201,3,208,239,173 
DATA 251,3,133,96,173,289,3,133,95 
DATA 768,608,3,16%,96,141,251,3,165 
DATA 95,141,250,3,96 

REM ENDE 1.,RNFANG 2.TEIL DER DATAS 
DATA 169,0,133,92,169,168,133,33 
DATA 162,32,160,8,177,92,199,1,145 
DATA 92,230,1,136,208,2453,239,93,202 
DATA 48,2,208,239,199,1,169,68,141 
DATA 2198,166,169,3,141,211,166,96 
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Antiratter-Routine 
für Simon’s Basic 


In kommerzieller Software wer- 
den als Kopierschutz einige Sekto- 
ren auf der Diskette nicht forma- 
tiert. Wird nun der Lesekopf 
durch das Programm veranlaßt, 
einen nicht formatierten Sektor zu 
lesen, findet er ihn nicht und 
macht fünf Leseversuche, bevor 
das Programm mit der entspre- 
chenden Fehlermeldung abge- 
brochen wird. 

Im Programm wird nun die Fehler- 
meldung abgefragt. Ist sie vorhan- 
den, dann wird fortgesetzt — wenn 
nicht, wird zu einer Selbstmord- 
routine verzweigt. Das ist bei Ko- 
pien der Fall, die mit einem nor- 
malen Kopierprogramm kopiert 
wurden. 

Diese Art des Kopierschutzes ist 
sehr umstritten, weil bei der häufi- 
gen Verwendung solcher Pro- 
gramme die Mechanik der Floppy 
leidet. 


Wen beim Laden von 


Simon'’s Basic das 


Rattern der Floppy 


stört, der kann mit einer 


Routine abhelfen. 


Simon’s Basic ist ein sehr oft ange- 
wendetes Programm und damit 
ein Floppykiller. Abhilfe zu schaf- 
fen, ist dringend nötig. Den Weg 
dazu zeigt das Studium der Me- 
mory-Map und des Rom-Listings 
im Floppy-Buch von Data Becker. 
In der Memory-Map steht in 
Adresse 106 die Zahl der Lese- 
versuche. Ändert man diese Spei- 
cherstelle, so kann das Kopf- 
rattern unterbunden werden. Für 


das Formatieren einer Diskette ist 
diese Methode nicht wirksam. 
Hier rattert es nach wie vor, wo- 
durch der Kopf weiterhin allmäh- 
lich dejustiert wird. 


10 OPEN 1,8,15 

20 PRINT # 1,"M-W";CHR$(106) 
CHR$(O)CHR$()CHR$(133) 

30 CLOSE | 


Die Antiratter-Routine wurde für 
Simon’s Basic entwickelt und da- 
mit ausprobiert. Theoretisch müß- 
te sie aber auch bei anderer Soft- 
ware funktionieren, die nach dem 
gleichen Prinzip kopiergeschützt 
ist. In letzter Zeit kommen jedoch 
immer mehr Programme auf den 
Markt, die in das DOS (Disk Ope- 
rating System) eingreifen. Hier 
funktioniert die Antiratter-Routine 
nicht. 


(Rudolf Wo/f) EMEEEEEEEEEEEEEEEEEEEEEEN 


Shorties im 


Sechserpack 


Im ersten Programmabschnitt von 
MIPs 1 wird der Vektor für Funk- 
tionen 'verstellt'. Der Hauptteil 
verändert die PEEK-Anweisung. 
Falls man beispielsweise mit ei- 
nem Grafikprogramm arbeitet, 
kann man mit dem neuen PEEK- 
Befehl sehr leicht ein Hardcopy- 
Programm schreiben. Die Zeilen 
$02CC bis $02D1 prüfen jetzt auf 
den Befehl 'PEEK’; genau gesagt, 
auf den Token für PEEK. Wenn 
man eine Basic-Programmzeile 
eingibt, vergleicht der Computer 
die Zeile mit einer Liste von Basic- 
Anweisungen. Wird dabei eine 
bekannte "Wortkombination' (wie 
PEEK) gefunden, wandelt er diese 
vier Bytes in eine Abkürzung (hier 
$C2) um. Tritt kein PEEK-Befehl 
auf, dann wird — wie gehabt — 
der Basic-Zeiger ($7A/7B) herab- 
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„MIPse“ sagt Heino 
Velder zu seinen Mini- 


Programmen. Die sechs 


Knirpse passen in jedes 


Programm und leisten 


dort gute Dienste. 


gezählt, und es folgt die Fortset- 
zung in das ROM (MP($02FA)). 
Der Zeiger ins Basic weist auf den 
PEEK-Befehl. JSR $0073 erhöht 
den Zeiger um eins und JSR $ABA3 
holt die PEEK-Adresse aus dem 
Basic-Programm (Klammer-Aus- 
druck). 


WE SOMESENPSTERWOLD. SM 


Das Ergebnis steht im FAC#]1 
(Floatingpoint-Akku Nr. ]). Die Ar- 
beitsweise dieses "Zwischen- 
speichers’ zu erläutern, würde 
einige Seiten umfassen. Es genügt 
im Grunde zu wissen, daß sich der 
Computer hier Zahlen 'merkt’. JSR 
$B7F7 wandelt FAC#1 nun in 
eine (handliche) Integerzahl um. 
Das Ergebnis erhält man im Y-Re- 
gister (Low-Byte) und im Akku 
(High-Byte), sowie in den Adres- 
sen $14/15. Der Lade-Befehl in 
Zeile $02E6 holt den Wert der 
adressierten Speicherzelle. Das 
(PEEK-)JErgebnis wird ins Y-Regi- 
ster kopiert, und die Routine 
$B3A2 überträgt den Y-Wert in 
den FAC#1. Dieses Unterpro- 
gramm führt außerdem ein 'RTS’ 
aus. Alles weitere erfolgt in den 
ROMs. Lautet der Befehl bei- 


MIPs 1) Beispiel zu Funktionen (PEEK unter’s ROM). 


.+ 

.. 

.. 
”. 

., 
.. 
.+ 
.. 
.. 
-. 
.. 
.. 
.. 
.. 
.. 
.. 
.. 
.. 
.. 
2.9. 
.. 
.. 
.. 
.. 
.r 
.. 
Di 
.» 
.. 
.. 
.. 
.. 
.. 
.. 
.. 
.. 
.. 
.. 


.. 


cc LDA #scc 
02 LDx 
FB cp% 
1A BEO 


Wie korrigierte FRE-Funktion. 


SAR8 


Der Vektor zur Auswertung von 


oA 
FA 


Funktionen wird umgeladen 


und anschließend "verbogen’. 


*02A8 = Programm einschalten. 
so2BF = a ausschalten. 


er ee Eee ee ee 


SHERE 3AAAR 


Bauptprograsse — mn 


> nächstes Zeichen aus dem BASIC. 
> Vergleicht mit Token "PEEK’. 
> nein, dann zur ROM-Routine. 


Zeiger auf folgendes Zeichen. 
Holt Adresse zu PEEK(KXAXK . 
Zahl nach Integer umwandeln. 
Ergebris in #14/15 (low/high). 
Interrupt aus (siehe Text) 


ROM’s abschalten. Wieder Ein- 
schalten durch (Driginal-) 
soi Wert im X-Register. 


#800 PEEK-Wert Iaden und in’s 
(#14),Y Y-Register übertragen. 


ROM’s wieder einschalten. 
Interrupt wieder zulassen. 
Wert im Y-Register zum 
Floatingpoint-ACCU# 1 (Ende). 


Kein PEEK-Befehl gefunden. 
Zeiger in’s BASIC minus 1 
und 


weiter zur ROM-Routine. 


ERBE EL. 


Fortsetzungs-Vektor. 


REM EEREERRERFEERFREHERFERERERERERFFEEFELEKERERERERT 
REM s PEEK UNTER'S ROM (C84) * 
REM zESSEEEE EEE LEREEETTEREREEBRIFRERKEERERERFRERE 
’ 

REM EINSCHALTEN: SYS 6808 / AUSSCHALTEN: SYS 703 

’ 

FOR I=698 TO 766:READ D:POKE I,D 

S=-5S+D:12=Z+1:1IF 2<18 THEN NEXT ı2=-1 

READ DiIF D<>S THEN PRINT "FEHLER IN"+L+1988:STOP 
L=L+111F 238 THEN 2=8:$=98:1NEXT 

: 

’ 

DnTAa 169,294,162,002,236,911,0093,2408,026,172,1225 
DATA 818,083,148,250 ,002,172,811,983,1498,251,982 
DATA 292,208 ,985,173,250,002,174,251,092,141,12089 
DATA 9818,083,142,911,003,096 ,832,115,009,201,613 
DATA 194 ,289,028,032,115,008,832,138,173,032,952 
DATA 247,183,128,165,001,179,0841,248,133,001,13989 
DATA 158,9288,177,020,168,134,081,888,076,162,985 
DATA 179,169, 122,288 ,002,198,123,198,122,108, 1425 
DATA 258,082 ‚288,008 ‚808 ‚0088 ,088 ‚252 


2 


o 
> 
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FB ?®8 
Ac 
AD 
03 ®@7 
c3 


BABSR R 
Spoon 5 
SRRBR 


ee 

a3 CC 
1A AC 
eB 83 
ra e2 
SE 88 


spielsweise "PRINT PEEK(A&)', 
dann druckt der Computer nun 
den Wert im FAC#]. Die Über- 
gabe eines numerischen Wertes 
aus der Arithmetik-Routine ge- 
schieht immer über den FAC#1. 
Zusätzlich schalten die Zeilen 
$02DD bis 02E2 die ROMs ab. Die- 
se sind ausgeblendet, falls die er- 
sten beiden Bits der Steueradres- 
se $01 gelöscht sind. Da das Be- 
triebssystem (und die Interrupt- 
Routine) ausgeschaltet ist, muß 
der Interrupt — mit SEI — blok- 
kiert werden. 


Restore mit Zeilen- 


nummer 


Der Computer unterscheidet zwi- 
schen Basic-Funktionen, bei de- 
nen (Strings ausgeklammert) 'ge- 
rechnet’ wird, und solchen Änwei- 
sungen, die 'direkt' etwas ausfüh- 
ren; beispielsweise PRINT, GOTO 
usw, 

Die letzteren Befehle holt der Mi- 
kroprozessor über den Vektor 
$0308/9; also ein weiterer 'An- 
griffspunkt' für Maschinen-Pro- 
gramme. 

MIPs2 erweitert den RESTORE- 
Befehl, so daß der Zeiger für den 
READ-Befehl 'gezielt' auf eine be- 
stimmte Zeilennummer gerichtet 
werden kann. Diese Basic-Erwei- 
terung eignet sich gut zum Erläu- 
tern des Grundprinzips,. 

SYS 680 überträgt den Basic-Vek- 
tor an die Adresse $02FC/FD. Der 
Vektor wird nun auf die Ädresse 
$02C7 gestellt, und RESTORE XX 
ist eingeschaltet. Falls man jetzt 
erneut SYS 680 eingibt, kopiert 
das Programm den neuen Basic- 
Vektor ($02C7) nach $02FC/FD. 
Anschließend läuft der Computer 
vorm Änfang des Hauptprogramms 
zu dem JMP ($02FC). Dieser 
Sprung führt wieder an den Pro- 
grammanfang usw. ... 
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MIPs 2) Beispiel erweiterter BASIC-Befehl (RESTORE XX). 


a9 CC LDA #sCc * 
a2 02 LDxX #802 4 Wie neuer "FETCH-Befehl’. 
4 
AC OB 03 LDY 820308 1 Achtung: Der Programmteil 
BC FC 02 STY sorrc 1 prüft nicht, ob das Hauptpro- 
AC 09 03 LDY 50309 1 gramm schon eingeschaltet ist. 
eC FD 02 STY sozrD 1 Zweimaliges Einschalten führt 
DO 06 BNE 302C0 + zum Programmabsturz_! 
AD FC 02 LDA soarct ı Driginal-Vektor laden. 
AE FD 02 LDX so2rFn ’ (Befehlserweiterung aus) 
BD 08 035 STA s050B „ 
8E 07 03 STX 803097 1 Vektor abspeichern und 
60 RTS + zurück in’s BASIC. 


[ Ty WPHRERERENEN 


Hauptprogramm —— 


Nächstes Zeichen aus BASIC. 
"RESTORE-Befehl’ ? 
nein, dann weiter in’s ROM. 


> RESTORE-Routine ausführen. 
nächstes Zeichen holen. 
Zahl, sonst Schluss. 


S 
“a 
ww 


02D& 20 BA AD JSR #ADBA > Holt Zahl < 255 (RESTORE XXX). 
. 0209 20 F7 B7 JSR sB7F7 > Nach Integer umwandeln. 

O2DC 84 3F SsTY sIsr + Ergebnis in V/ACCU (low/high) 
. O2DE 85 40 STAa »40 3 nach READ-Zeiger (Zeilen-Nr.). 
. 02EO 20 13 A& JSR 3A613 > Sucht nach dieser Zeilen-Nr. 


Adresse der Zeile (oder der 


= 
., OZES A2SF LDY sSr * #olgenden) in ®SF/&0. 
-+ 0O2ZE7 DO 01 BNE $02EA ’ 
*. D02E9 CA DEXxX 7 Adresse minus 1 in genauen” 
*. O2EA BA DEY 4 
: O2EB 84 41 STY sa 4 READ-Zeiger (ziehe Text). 
.. O2ED B& 42 SsTı #42 4 
JMP ATAE > zum nächsten Befehl (Ende). 


». OZEF ACAE AT 


Zeiger in’s BASIC minus eins. 


Ylıd 


Fortsetzung über Vektor. 


Ä 


Hier ‘alter’ Vektor. 


REM BRRTREREEEREEELTERKEEHEEEKELERRERTTERKEERTRER TER 
REM «* RESTORE ZEILEN-NR. 664) x 
REM a BE ZZ SZ 2 2 22 2 SEES EPG 
’ 


REM EINSCHALTEN: SYS 688 / AUSSCHALTEN: SYS 698 
r 


FOR 1=689 TO 768:READ D:POKE 1,0 
S=5+DıZ=Z+1t IF 2<18 THEN NEXT t2=-1 
READ D:IF D<>S THEN PRINT "FEHLER IN"SL+18088:STOP 
L=L+1:1IF 2>8 THEN Z=8:S=B1NEXT 

’ 

Ei 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


169,199,162,002,172,908,003, 140 ,252,082,,1109 
172,009,003,148,253,002 ‚208 ‚086 ,173 ,232 ,1218 
002,174,253,002,141,808,983, 142,009 ‚883,737 
896 ‚032,115,9008,201,149,208 ‚836 ‚032 ‚023,883 
168 ,0832,115,000,176,025,032,138, 173,032 ‚891 
247,183,132,063,133,064,032,019, 166,166, 1205 
0936,164,095,208,001,202,138,132,065,134,,1233 
B66 ,076,174,187,160,255,198, 123,032 ‚251 ,1502 
168,108 ,252,002,000,900,0008,530 


85 87 CHKSUM 


83 8C 
FD 82 


Sc 
©D 
cA 
48 
iD S5E 


FD 


JSR $A81D führt den 'normalen’ 
RESTORE durch. Dann holt 
CHRGET das (auf RESTORE) fol- 
gende Zeichen. Ist anschließend 
das Carry-Flag gelöscht, so wurde 
eine Zahl (Buchstaben 1—-9) gefun- 
den. Anderenfalls wird das Pro- 
gramm mit JMP $ATAE verlassen. 
Mit dieser ROM-Routine geht's re- 
gulär weiter im Basic. 

Ist das Carry-Flag nach CHRGET 
jedoch gelöscht, dann liegt ein er- 
weiterter RESTORE-Befehl vor (z. 
B. RESTORE 1000). Die folgenden 
beiden Unterprogramme wurden 
schon beim PEEK-Befehl bespro- 
chen. JSR $ADBA holt eine Zahl 
und $B7F7 wandelt diese in einen 
Integer-Wert um. Diese 'Zeilen- 
nummer' wird in dem DATA-Zei- 
ger $3F/40 abgespeichert. Die 
Adresse benutzt der Computer 
nur bei Fehlermeldung, falls bei- 
spielsweise Zahlen gelesen wer- 
den (READ D), die DATA-Zeilen 
jedoch Strings enthalten (DATA 
"A", "B“.. .). Außerdem steht die 
Zeilennummer in dem Zeiger $14/ 
15, und die folgende Routine 
$A613 durchsucht das Basic-Pro- 
gramm nach dieser Nummer. Bei 
der Rückkehr befindet sich die 
Startadresse plus ] dieser Basic- 
Zeile in dem Zeiger $5F/60. Wird 
die Nummer nicht gefunden, dann 
zeigen $5F/60 auf die folgenden 
Programmzeilen. 


Die Adresse wird zuletzt um eins 
herabgezählt und in dem eigentli- 
chen (genauen) READ-Zeiger ab- 
gespeichert. Mit JMP $AT7AE 
geht's dann zum nächsten Befehl. 

Dieses Programm erlaubt hinter 
RESTORE nur eine Zahlenangabe, 
jedoch keine Variable (CLC-Test 
nach CHRGET). Falls CHRGET 
auf das Ende einer Programmzei- 
le trifft (100 RESTORE) oder einen 
Doppelpunkt findet (RESTORE: 
PRINT... ‚)ist das ZERO-FLAG ge- 
setzt. Wird die Zeile $02D4 in 'FO 


19 BEQ $02EF' geändert, akzep- 


174 Qu Spezial ı 


NENNEN IITERWSRLD. 2 


MiIPs 3) Beispiel neuer BASIC-Befehl (FETCH-Befeh)). 


.®. 
en Te = Befehl _ein/ausschalten 
“2 

2 0208 
2 02a 
..  OZAC 
.  02AC 
.. 0281 


.. 


LDA #sCcC » Neuer BASIC-Vektor in ACCU/X 
LDx #s0o2 » (lom/high) nach BO2CC. 

c[rxX 80309 > BASIC-Vektor schon verstellt ? 
BEO SO7CHR > dann Programateil überspringen. 


LDY sos08 Driginal-Vektor nach SO2FD/E 
STY S02FD umiaden. Fortsetzung mit 

LDY 50309 "IMP (SO2FD)*. 

STtY sO2FE 

BNE 202C5 > Neuen Vektor abspeichern. 


35R3 
EmAR 
8 


-n 


.. 


*. 


@m338 


.. 
.. 
LDA SO2FD "Alten’ Vektor laden um den 
LDx so2FE Befehl abzuschalten. 

S5TA 50308 Vektor ändern. 

STX 80309 

RTS > Zurück zum BASIC (Ende). 


.. 


38n3 


SRERE 3ABAR 


*. 

.. HRURSELORFBBE 7 I 

Bi > Zeiger ın's BASIC erhöhen. 

.. > Durch "INY’ beginnt die folgen- 

.. de Routine mit O (LDA sORFS5,V. 

.. so2r5,Y Vergleicht BASIC-Programateıl 

.. wo2Es mit dem Text "FETCH' 

.r (#70),Y 

.. “o2Dı > Vergleich stimmt, sonst 

.. 

.. »78 

.. ws 

.. na +ABFB 
18S02FD) Zur RDOM-Betehls-Routine, 


Zeiger in’s BASIC minus |] 
Genau: IZeiger -— 256) + 255 


sABFB > Zeiger in’s BASIC plus Y-Reg. 
“DIA > Pruft Direkt-Mode. Gegebenen- 
falls "ILLEGAL DIRECT ERROR’. 
> Holt Anzahl gedrückte Tasten. 

> Null, dann erneut prüfen. 


> ROM-Routine ’normaler GET’. 
> Zum nächsten Befehl (Ende). 


Vergleichstert zum Befehl. 


> Null als End-Kennung. 


Hier Vektor zur Fortsetzung. 


BISSEEZZZZZ SEES ZSSZZZ ZZ ESS EE EEE E  Ennnnnn 
REM = NEUER BASIC-BEFEHL (FETCH) (84) * 
REM sunuarerRer EEE HERR EEE RT ERERERRF EEE 
s 

REM EINSCHALTEN: SYS 888 / AUSSCHALTEN: SYS 783 

ı 

FOR I=-6558 TO 766:READ D:iFOKE 1,0 

S=5+D:2=2+1:1F 2<1®8 THEN NEXT ı2=-1 

RERD Dir Di>S THEN PRINT "FEHLER IN"5L+18988:STOP 
L=L+1:1F 2>8 THEN 2=8i5=BiNEXT 


169,294 ,162,002,236 ,0089,003,248,8026,172,1223 
003 ,0083,148,253,002,172,0089,883,148,254,984 
©2.2,2@8,006,173,253,0082,174,254,002,141,1215 
©e3 ,803,142,009,803,095,032,115,088,160,368 
255,298,183,245,082,248,014 ,289, 122,240, 1712 
246,.198,123, 168,255 ,832,251,168,108,253,1794 
222 ,032,251,168,832,165,179,185,198,248,1433 
232 ,0232,148,171,076,174,187,878,069,984 ,1241 
057.,072,0080,000 ,000,008.,008,139 


ee v2 
a3 cc 2 
in ac 88 
e3 83 8C 
FD e2 AE 
SE 89 83 


tiert RESTORE auch Variablen. Im 
Basic-Lader muß hierzu ein Wert 
der Zeile 1004 geändert werden 
(176 — 240). 

(1004 DATA »#», *+%*, +*+%* 
‚000,240,025,...: : 
Bei MIPs 3 wird's interessant, da 
es einen wirklich neuen Basic-Be- 
fehl gibt. Der FETCH-Befehl er- 
setzt den folgenden Ausdruck: 
'100 GET A$ : IF A$=“"THEN 100' 
durch '100 FETCH A®.. 

Das Hauptprogramm beginnt wie- 
der mit CHRGET. Übrigens 'über- 
liest' diese Routine Leerzeichen 
(Spaces), so daß die Basic-Zeiger 
anschließend immer auf ein 
Zeichen, Token oder das Ende 
der Programmzeile weisen. 


Der Abschnitt $02D1 bis 02D9 ver- 
gleicht das Basic-Programm mit 
der Tabelle ab $02F5. Der folgen- 
de Programmteil ($02DB-02DF) 
setzt den Basic-Zeiger herab. Ge- 
nau gesagt werden durch DEC 
$7B zuerst 256 Bytes abgezogen. 
Die Routine $A8FB addiert dann 
den Wert des Y-Registers (255) 
hinzu. Eine umständliche, aber 
notwendige 'Byte-Knauserei'. 
Falls das Programm die Buchsta- 
ben 'F-E-T-C-H' gefunden hat, 
wird im 6. Durchgang der Wert 
Null ($02FA) geladen und die 
Schleife verzweigt zur Adresse 
$02E5. 

Der Basic-Zeiger wird mit ]JSR 
$A8FB um sechs Bytes erhöht und 
zeigt nun auf die String-Variable 
hinter dem Befehl. 

Die Adıesse $C6 gibt an, wieviele 
Tasten gedrückt wurden, und hier 
($02EB-$02ED) wartet das Pro- 
gramm, bis sich ein Wert ungleich 
Null ergibt. Anschließend folgt 
die 'normale' GET-Routine und mit 
JMP $ATAE geht's dann weiter 
zum nächsten Basic-Befehl. 

Da der FETCH-Befehl nicht in ei- 
nen Token umgewandelt wird, ist 
dies sicherlich keine sehr elegan- 
te Methode. In jedem Fall kann 
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das Programm jedoch als Aus- 


MIPs 4) Beispiel zum OUT-Vektor (neue CHRS-F: unktion). gangsbasis für Experimente die- 
. nen. 

2% O2 9 CC Neue OUT-Verzweigung über die 5 

13) ek Be ion ah Sera Sonderfunktion durch 

.. O2M FO AA dann fertig. 

83 cz0s sc # 02 BE BIDELTVRNERe CHR$ 

! 02a BC FE o2 EIER 

.+, 0280 DO 0% neuen Vektor abspeichern. 

., 028F AD FD 02 Programs abschalten. MIPs 4 gibt dem CHR$ (128) eine 
N Ze mzos ae ie Sonderfunktion. Zeichen werden 
er Fre wRepiaee e immer im Akku übergeben. Das 
ir BR: ne se a Hauptprogramm überprüft stets, 
A OXT Cc9 80 > Zeichen gleich CHRE(128) 7 ob das Zeichen CHR$(128) ge- 
lines Area > nein, ‚denn Prag. überspringen. druckt werden soll. Falls man bei- 
ee Bauen SRIEBaeN 21, 22; spielsweise 'PRINT "1234*' ein- 
vos 0905 a gibt, bekommt die Routine nach- 
3 EEE " einander die Zahlen | bis 4 (im 
0208 48 I v- und X-Register in dem Akku) 'angeboten', Anschließend 
2 an ae N ur geht's direkt mit JMP ($02FD) wei- 
m. 1 Insirekte Adranse (AE/AFI auf ter, da nur das Zeichen CHR$(128) 
ie we De DRS nr: eine Sonderfunktion erhält. Wird 
l; a2 04 > 4 Durchgänge zu 236 Bytes. das Zeichen erkannt, dann prüft 
3 ss Ans Schri#t-Farbe’ laden. Sn an sn er 
& E ee: er Wert Drei eutet, daß die 
.. Do FB 4 < 
ae en er rg Ausgabe zum Bildschirm geht. An-. 
Er DARE > nein, dem erneut. dernfalls (z. B. vier beim Drucker) 
“ m uam sjen wird ein Peripheriegerät ange- 
> “ $:zuröckhsien. sprochen, und der Programmteil 
a “ 3 Bis Ende surächneien. En bis $02F8 wird übersprun- 
7 50 5 

ER rn ne Torre ea a ya 


äh 
“3 


werden beispielsweise alle 
Zeichen auf dem Bildschirm rot. 
Da — neben CHR$(128) — noch 
weitere Codes unbenutzt sind (sie- 
an ae BOT TÄRERERENS he Handbuch), kann man bei- 
se spielsweise mit CHR$(21) (und er 

nem entsprechenden Programm) 


< VEKTOR > > Adrense "OuUT-Fortsetzung'. 


EINSCHALTEN: SYS 688 / AUSSCHALTEN: SYS 793 den Bildschirm nach links rollen. 
FOR 1=898 TO 78S:READ D:POKE 1,D Nur eines muß man unbedingt be- 
S=8+D:2=Z+1:1IF 2<1® THEN NEXT ı12=-1 achten. Die Routine darf keines- 
RERD D:IF D<>S THEN PRINT "FEHLER IN"FL+18BB:STOP falls das X- und Y-Register verän- 
LeL+i:1IF 2>8 THEN 2=8:S=8:NEXT dern. Es ist am einfachsten, diese 
x Werte — wie hier gezeigt — im 
DATA 189,284,162,002 ‚235,039 ‚003 ‚240 ‚8928 ‚172 ,1233 Stack zu sichern. 
DATA 038,083, 140 ,253,002,172,039,083, 140,254, 1044 MIPs 5 ändert den Vektor für Feh- 
DATA 202,208,006,173,253,002,174 ‚254 ‚882 , 141,121 
DATA 838,003, 142,039,003,096 ‚201 ‚128,208 ‚842.900 lermeldungen (80300-309301). Doch 
DATA 872,169, 194,201,003,208 ,034,,152,072,138,1199 zuerst ein Anwendungsbeispiel: 
DATA 872,168,0008,132,174,169,218,133,173,162,13933 10 SYS 680,100 
DATA 884,173,134,002,143, 174,200 ,288 ‚251 ‚230 ,1521 90: 


DATA 175,202 ,208 ,246,104,170,104,168, 184,024, 1585 
DATA 096,184,1908,253,002,008 ,888,553 
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NUN MERERSNPLTERH OR. ZOOM 


MIPs 5) Beispiel zum ERROR-Vektor (ON ERROR GOTO-Ersatz). 


.. 
.. 
.. 


+ 
.. 
.. 
.r 
.r 
.. 
.. 
.. 
.. 
.. 
.. 
., 
.. 
.. 
.. 
.. 
.r 
.. 
*r 
.r 
.. 
.. 
*+ 
*. 
*r 
.r. 
.. 
.. 
.. 
.. 
.. 
.. 
.. 
.. 
”. 
’. 
.. 
.. 
.. 
.. 
.. 
.. 
.. 
.. 
.. 
.. 
.. 
.. 


REM # 
REM + 
REM # 
Ei 

REM E 
% 

FOR I 
S=S+D 
READ 

LeL+1 
2 

Ei 

DATA 

DATA 

DATA 


JSR 95798 Holt Zeilen-Nr. (595 6850, uxun) 
BIX und speichert diese nach #02. 


Neuer ERROR-Vektor in ACCU/X 
(lom/high) = #02D1. 


Vektor schon versteilt ? 
dann nach RTS. 


Original-Vektor nach SO2FB/C 
umladen. 

Neuen Vektor abspeichern, 
Original-Vektor zurück) aden. 


Vektor abspeichern. 


SAShE SARA 
2Bn9 $n83 


Programsteil Ende. 


Hauptprogramm —— re 


> X = Fehler-Nr. (siehe Text) 
größer #7F, dann kein Fehler 


Fehler-Nr. in ®7E (158) merken. 
Zeilen-Nr. (high) #ür CONT. 
gleich #FF (255), dann 

direkte Eingabe (Fehler). 


aBrR 58 


ACCU = Zeilen-Nr. "ON ERROR’. 


Fehler in Zeile für "ON ERROR’, 
dann frogramnabbruch. 


228828 


Zeilen-Nr. in Zeiger ilom). 
CLR-Befehl zum Teil ausführen. 
Zeilen-Nr. (high): (ACCU = 900). 


“ON ERROR*’-Zeile suchen. 
Nicht gefunden, falls CLR CARRY 


ROM-Routine "GOTD-Befehl’. 
Weiter im BASIC (Ende). 


Fehler-Nr. zurückiaden. 
Fehlerbehandlung im ROM. 


he AS 33 3A 


Fehler-Vektor isiehe #O2CA-DO) 


KEREHELFTTRHNEHHREFFEEFREEFREKEFERTERE HELFER 
ON ERROR GOTO ... C-84) * 
AAREREEERERT RENTE HET E TIEFE TER EE RER FE FRE 


INSCHALTEN: SYS 688 / AUSSCHALTEN: SYS 788 


"6808 TO 756:READ DIPOKE 1,0 

ıZ=Z+1: IF Z<18 THEN NEXT ıZ2=-1 

DIIF D<>S THEN PRINT "FEHLER IN"IL+1889:STOP 
IF Z>8 THEN 2=8:15=9: NEXT 


032,155,183,134,982,169,289,162,002,236,1284 
881,003 ,249,828,172,0089,0083,148,251,082,838 

172,001,0983,148,252,092,208,0806,173,251,1288 
802,174 ,252,0082,141,008,003, 142,081 ,083,728 

896 ,199,048,036,134 ,158, 164,859 ,280 ‚248, 187 
029,165,882,136 ,208 ,084 , 197,857 ,248 ,028, 1858 
133,028,932,122,166,133,021,832,019,166,844 

144 ‚006 ,032,,163,168,876,174,167,166,158, 1254 
108 ‚251,092 ‚908 ‚0080 ‚0008 ‚808 ,361 
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AS DI A2 3F 


iA AC 88 96 
81 83 8C 9 
FB 82 AE c3 
GE 81 83 FA 


WIN BOMEZSNPLITERWORLD SM 


100 PRINT "FEHLER-NR.:";PEEK(158) 
110 END 


Die Anweisung SYS 680 macht das 
Programm ’scharf', und die fol- 
gende Zahl gibt an, mit welcher 
Zeile es — bei einem Fehler — 
weitergehen soll. Nach RUN fin- 
det der Computer in der Zeile 30 
einen prächtigen 'SYNTAX ER- 
ROR' und es erscheint die Mel- 
dung: 

FEHLER-Nr.:11 

Nach SYS 680,100 holt das Pro- 
gramm durch JSR $B79B die Zei- 
lennummer (im Beispiel 100) und 
merkt sich den Wert in der Adres- 
se $02. Das Hauptprogramm prüft 
zuerst, ob die Fehlernummer — im 
X-Register — größer als 127 ist. 
Der Fehlervektor wird auch bei 
einem korrekten Programmstop 
(z. B. durch END) durchlaufen. In 
dieser Fall enthält das X-Register 
den Wert $80, und das Programm 
läuft weiter ins ROM. Dies ge- 
schieht ebenso, falls ein direkter 
Eingabefehler vorliegt (z. B. 
PRINT A = ]). Anderenfalls wür- 
de das Basic-Programm automa- 
tisch bei jedem Eingabe-Fehler 
starten, was auf die Dauer lästig 
ist. Solange die Adresse $3A den 
Wert 255 enthält, befindet sich der 
Computer im Direkt-Modus; es 
läuft also kein Programm. Außer- 
dem wird geprüft, ob die fehler- 
hafte Zeile genau jene ist, zu der 
das Programm verzweigen soll. 
Also: ERROR in 100, verzweige 
nach 100, ERROR in 100, usw. ... 
Die Routine $AS7A initialisiert den 
Computer teilweise, So werden 
beispielsweise unbeendete FOR- 
NEXT-Schleifen gelöscht. Dieser 
Programmteil führt jedoch (mit 
Absicht) kein 'RESTORE’ durch. 
Die Adresse $14/15 enthält nun 
die Nummer der Programm-Zeile, 
zu der die Verzweigung führen 
soll. Mit J]SR $A613 wird anschlie- 
Bend geprüft, ob diese Zeile auch 
im Programm auftritt, anderenfalls 
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MIPs 6) Kassetten-Analyse (C-64) 


#$00 
*sB7 
$F7DO 
sF817 
sS02F3 
*sFSAF 
sF72C 
#s0D 
sFFD2 


Länge des Filenamen = 0, 


Setzt Puffer-Adresse. 
Wartet auf Play-Taste. 
Verzweigung bei STOP. 
Schreibt ’SEARCHING’. 
Sucht Header (Pg.-Start). 


LIVUVVYVV hd 


RETURN auf dem Bildschirm. 


"01 
($B2),Y 
sci 


Läd Startadresse der 
Daten (low, high) 


Ba=B 333333383 


ie) 
o 


in’s X-Reg., Accu 
(8582) ,Y und $Ci1, C2. 
°sc2 
$BDCD 
#s2D 
sFFD2 
#403 
($B2),Y 


Druckt Zahl in X, Accu. 
Schreibt ’-’. 
Läd Endadresse in 


%-Reg. und Accu. 
(382),Y 
$BDCD 
#%5D 
SFFD2 


Druckt Endadresse. 
Schreibt ’=*, 
#505 


(#52),Y 
sCc1 


Errechnet Progr amm- 
länge. 


$C1,C2, = Startadr. 
($B2) ,Y 
sc2 


$BDCD Druckt Länge. 


DB ee ee Br we Bd ya ind De ee er We Be We 


REM VRERHEERREEKKELEKEKKERTEÄ FLIRT LTR R EUER 
REM + KASSETTEN-ANALYSE (C-54) # 
REM BRERFERRKERERELUTERFRERKERERIRHHERKRERREEN 
3 

REM AUFRUFt SYS 688 

, 

FOR 1=688 TO 7S58:READ D:iPOKE 1,D 
S=S+D:2=2+1:1IF 2Z<18 THEN NEXT t12=-1 

s 

READ DI: IF D<>S THEN PRINT *"PRUEFFEHLER !*":STOoP 
IF 2>8 THEN Z=81S=8: NEXT 


169,088, 133,183,832,208 ‚247,032 ‚823 ‚248 , 1275 
176,063,032,175,245,032 ‚844 ‚247 ,189,013, 1136 
832 ,210,255,160,0081,177,178,133,193,178,1309 
288,177,178,133,194 ,032 ‚205,189, 169 ,845,, 1322 
032 ‚210,255, 160,003,177,178,170,200, 177 ,1362 
178,032 ,205,189, 169,061 ,832,210,,255 ‚oss ‚1387 
168,003,177,178,2293,193,1790,288, 177,179 ,1668 
223,194 ,832 ‚285, 189 ‚896 ‚088,800 ‚808 ‚880,345 


088 81 82'083 84 85 86 97 CHKSUM 


AS 088 85 B? 20 D8 F7? 28 9E 
17 F& 58 3F 28 AF FS 28 D? 
ec F?7 AS 0D 20 D2 FF RB 7E 
81 Bi B2 85 Cı An cs 81 AB 


würde sich der Computer 'aufhän- 
gen'. Ein gesetztes Carry-Flag si- 
gnalisiert, daß die Zeile gefunden 
wurde. ]SR $A3A8 ist eine Unter- 
routine des GOTO-Befehls, und 
setzt den Zeiger ins Basic ($7A/7B) 
entsprechend der Zeilennummer 
in $14/15. In der Zeile $02F3 
geht's dann weiter mit dieser Pro- 
grammzeile. 

Wie in dem Testprogramm ge- 
zeigt, kann man durch PEEK(158) 
die Fehlernummer (Fehler-Art) 
abfragen. Zuletzt sollte man be- 
achten, daß als 'Ziel-Adresse’ nur 
eine Zeilennummer kleiner 255 
angegeben werden kann, an- 
derenfalls gibt's ILLEGAL QUAN- 
TITY ERROR. 


MIPs 6 ist mit dem Namen „Kas- 
settenanalyse* überschrieben. 
Nach einem Durchlauf des dazu- 
gehörigen Basic-Ladeprogramms 
kann die Maschinenroutine mit 
SYS 640 aufgerufen werden. 
Nachdem die Play-Taste des Kas- 
settenrecorders gedrückt wurde, 
sucht die Routine nach dem ersten 
Programm, das auf der Kassette 
abgespeichert ist, Anschließend 
werden die Start- und End-Adres- 
se sowie die Länge des Pro- 
gramms auf dem Bildschirm aus- 
gegeben. 

Mit diesem Analyse-Programm 
kann man schnell ermitteln, in 
welchem Speicherbereich ein 
Programm liegt und wie lang es 
ist. Der Kernteil des Programms 
ist die Zeile $02B7. Jedes auf Kas- 
sette abgespeicherte Programm 
beginnt mit einem Start-Teil (engl. 
HEADER), der den Programmna- 
men sowie die Start- und Enda- 
dresse umfaßt. Dieser Header 
wird von der Routine $F72C gela- 
den und gespeichert. Der Zeropa- 
ge-Zeiger $B2/B3 zeigt anschlie- 
Bend auf diese Daten, die in dem 
Programmteil $02BF-$02F3 ausge- 
wertet werden. 


(Heino Velder) EEEEEEEEEEEEEEEEEEEEEE 


28 CD BD 
AB 83 Bi 
88 CD BD 
38 AD 83 
c8 Bi B2 
co 288 88 
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REEL WILL TER NORD. EI 


ar 


teren 


Fa 


WARUM DER. 


COMMODORE EINEN 
OKI-DRUCKER BRAUCHT 


) IR ern Di mi nt lanke 
or wieder ein ıchrich & Wert ni 1 
ke gehängt zu werdet 
k md t ) Ri ( Ki vu 
nd al ıch Fi | ) ) 
it l tibel 
1 ' i 7 clor 
Jar ) nn 1 u \ 
URL u weis om 
So clenkt ı (om kichst einmal ( 
MICROLIN von OKID Ei h t 
went In ) Jruck ni 
ni zu ot lai-1 zum 
LO ( ılt Im N dam 0 
cdals der Mil NE 182 nicht nur Kleiner, leiser und . 
leıstunggstähi } en seiner Kollegen »t 
rm ul ı IND \ sen n zuemen 
vorzuslichen Preis anleten kann 
Noch glänzender werden die Augen ci 
Lommadar llerdimss, wenn dee Sp ne aul Got 
OKIMATE 20 kommt 
Ein Druck nit scher unbegrenzten Möoglıch- — 
keiten — der ideale Partner i le, die es gar nich GMBH 
4 14 r il " Ih I T _ 
so der OKIMATEF 20 überaus diskre was ern OKIDATA DH \ht, 1 
autstärke angeht. Überaus attraktv. wen Emanuel-Leutze 1000 Du co 


Teleson 02 11-5 


Wir empiehlen auch hier den Computer-Fachhandel, wo 
man Sie nicht nur mil einem „Welcome on board” be- 
grüßen wird, sondern auch mit allem, was Sie sonst 


noch über die anderen Drucker von OKIDATA 
wissen wollen. 

Und wenn nicht - dann haben wir noch 

einen kleinen C oupon für Sie - als 
„Retlungsring” sozusagen. 


| Coupon | 
| MICROLINE ZA KIA OKIMATE 0 

MICROLINE 84 MICROLINE 182 | 
| MICROLINE NR MICROLINE 972 | 
| © PACEMARK Z3502410 MICROLINE 193 | 
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